Developing.ru

Код: Выделить всё

type
  zayavka=^zvk;
  zvk=record
  left,right:zayavka;
  napr:String;
  gorod:String;
  nom_r:Integer;
  fio:String;
  dat_vil:Integer;
end;

procedure sozd(t:zayavka);
begin
  New(head);
  head^.left:=nil;
  head^.right:=nil;
end;

procedure ins_tree(var t1,t2:zayavka);
begin
 While k=0 do
   begin
     t1:=head; t2:=head;
     New(t1^.left); New(t2^.right);
     t1:=t1^.left;
     t2:=t2^.right;
     Write('Направление:');Readln(t1.napr);  
     Write('Город: '); Readln(t1.gorod);
     Write('Номер рейса:'); Readln(t1.nom_r);
     Write('ФИО:'); Readln(t1.fio);
     Write('Дата вылета: '); Readln(t1.data_vil);
     {------------------------------------------------}
     Write('Направление:');Readln(t2.napr);  
     Write('Город: '); Readln(t2.gorod);
     Write('Номер рейса:'); Readln(t2.nom_r);
     Write('ФИО:'); Readln(t2.fio);
     Write('Дата вылета: '); Readln(t2.data_vil);

     Writeln('Хотите выйти?');
     если да, то k:=1 иначе k:=0;

end;