Разработать программу, которая содержит текущую информацию о заявках на авиабилеты

uses crt;
type
point=^zveno;
zveno=record
inf:record
     num:integer; {номер заявки}
     pn:string[40];{пункт назначения}
     rei:integer; {номер рейса}
     name:string[50]; {ФИО пассажира}
     day:integer; {день вылета}
     monat:integer; {месяц вылета}
     year:integer; {год вылета}
     end;
sled:point;
end;
var
l,s:point;
z:string;
n,i:integer;
begin
new(l);
writeln('количество заявок');
readln(n);
writeln('пункт назначения');
readln(z);
l^.sled:=nil;
s:=l;
for i:=1 to n do
 begin
 new(s^.sled);{новая динам. перемен.}
 s:=s^.sled;
 writeln('номер заявки');
 readln(s^.inf.num);
 writeln('пункт назначения');
 readln(s^.inf.pn);
 writeln('номер рейса');
 readln(s^.inf.rei);
 writeln('ФИО');
 readln(s^.inf.name);
 writeln('день');
 readln(s^.inf.day);
 writeln('месяц');
 readln(s^.inf.monat);
 writeln('год');
 readln(s^.inf.year);
 s^.sled:=nil;
end;
s:=l^.sled;
i:=1;
writeln('************');
while s<>nil do begin
writeln('dannye N ',i);
writeln(s^.inf.num);
writeln(s^.inf.pn);
writeln(s^.inf.rei);
writeln(s^.inf.name);
writeln(s^.inf.day);
writeln(s^.inf.monat);
writeln(s^.inf.year);
s:=s^.sled;
i:=i+1;
end;
end.