Двусвязные списки. Программа написана, но есть ошибки - не могу понять где!!!

Program Prac_9;
 
type
  St=^stec;
  Stec=record
   Left:st;
   Pynkt:string;
   Nomer:integer;
   Pib:string;
   Data:longint;
   Right:st;
  End;
 
Var
  I:string;
  Begq,endq,p:st;
  K:integer;
  J:Boolean;
 
Begin
While true do
  begin
   Writeln('1: sozdanie');
   writeln('2: dobavlenie');
   writeln('3: udalenie');
   writeln('4: exit');
   writeln('5: vivod vseh');
   writeln('6: vivod po FIO');
   Readln(k);
   Case k of
    1: begin
        BegQ:=nil;
        EndQ:=nil;
        New(p);
        Writeln('vvedite punkt');
        Readln(p^.pynkt);
        Writeln('vvedite nomer');
        Readln(p^.nomer);
        Writeln('FIO');
        Readln(p^.pib);
        Writeln('vvedite datu');
        Readln(p^.data);
        P^.right:=nil;
        P^.left:=nil;
        Begq:=p;
        Endq:=p;
       End;
    2: begin
        New(p);
        Begq:=nil;
        Endq:=nil;
        Writeln('vvedite punkt');
        Readln(p^.pynkt);
        Writeln('vvedite nomer');
        Readln(p^.nomer);
        Writeln('FIO');
        Readln(p^.pib);
        Writeln('vvedite datu');
        Readln(p^.data);
        P^.right:=nil;
        Endq^.right:=p;
        P^.left:=endq;
        Endq:=p;
       End;
    4: exit;
    3: begin
        P:=begq;
        Writeln('vvedite FIO');
        Readln(i);
        j:=false;
        While j=false do
         begin
          If (i=p^.pib) then
           begin
            P^.right^.left:=p^.left;
            P^.left^.right:=p^.right;
            J:=true;
           End
           Else p:=p^.right;
          End;
       End;
    5: begin
        P:=begq;
        While p<>nil do
         begin
          Writeln(' ',p^.pynkt,' ',p^.nomer,' ',p^.pib,' ',p^.data,' ');
          P:=p^.right;
         End;
       End;
    6: begin
        j:=false;
        P:=begq^.right;
        Writeln('vvedite FIO');
        Readln(i);
        While j=false do
          If (i=p^.pib) then
           begin
            Writeln(' ',p^.pynkt,' ',p^.nomer,' ',p^.pib,' ',p^.data,' ');
            J:=true;
           End else p:=p^.right;
       End;
    End;
  End;
  readln;
end.