динамические структуры данных

   read(s);p:=begl;
   while s<p^.fio do 
       p:=p^.link;

 new(p);
 p^.fio:=str;
 p^.nazvanie:=nazv;
 p^.god:=g;
 p^.link:=nil;
 beql:=p;
 endl:=p;

for i:=2 to n do
 new(p);
 p^.fio:=str;
 p^.nazvanie:=nazv;
 p^.god:=g;
 p^.link:=nil;
 endl^.link:=p;
 endl:=p;
 end;

 {Pk находится на первом елементе где ФИО больше нашего}
 new(p);
 ...{заполнение}
 p^.link:=pk^.link;
 pk^.link:=p;
 p:=nil;

program dinam;
       type spisok=^elem;
        elem=record
                    fio, nazvanie:string;
                    god:integer;
                    link:spisok;
        end;
var p, pk, beql, endl: spisok;
    str, nazv:string;
    n, i, g:integer;
Begin
 new(p);
 p^.fio:=str;
 p^.nazvanie:=nazv;
 p^.god:=g;
 p^.link:=nil;
 beql:=p;
 endl:=p;
 
for i:=2 to n do begin
 new(p);
 writeln ('vvedite FIO avtora');
 readln (str);
 p^.fio:=str;
 writeln ('vvedite nazvanie knigi');
 readln (nazv);
 p^.nazvanie:=nazv;
 writeln ('vvedite god izdaniya');
 readln (g);
 p^.god:=g;
 p^.link:=nil;
 endl^.link:=p;
 endl:=p;end;
 
 new(p);
  writeln ('vvedite FIO avtora');
      readln (str);
      writeln ('vvedite nazvanie knigi');
      readln (nazv);
      writeln ('vvedite god izdaniya');
      readln (g);
p^.fio:=str;
p^.nazvanie:=nazv;
p^.god:=g;
 p^.link:=pk^.link;
 pk^.link:=p;
 p:=nil;
 
End.

program dinam;
  type spisok=^elem;
  kniga =record fio, nazvanie:string;
  god:integer;
  end;
 
  elem=record
  data: kniga;
  link:spisok