решение задачи на Pascal, Структуры и алгоритмы обработки данных

uses crt;
  label 1;
  type
   PElement = ^TypeElement;
   TypeElement = record
           fam:string;
           tn:integer;
           next:PElement;
     end;
  var
   PtrHead,PtrCur,PtrPred,PtrNew:PElement;
   f:array[1..5] of string;
   n:array[1..5] of integer;
   i,num, x,s,z:integer;
   st:string;
////////////////////////////
 
procedure add;  {процедура добавления элементов в пустой список}
  begin
  new(ptrcur);
  ptrcur^.tn:=n[i];
  ptrcur^.fam:=f[i];
  if i= 1 then ptrhead:=PtrCur
          else  PtrPred^.Next:=PtrCur;
  if i=5 then Ptrcur^.next:=nil;
  PtrPred:=PtrCur;
    end;
 
//////////////////// {процедура вывода списка на экран}
 
 procedure print;
 begin    ptrcur:=ptrhead;
  repeat
   begin
    writeln(PtrCur^.tn,' ',PtrCur^.fam);
    PtrCur:=PtrCur^.next;
   end;
  until PtrCur=nil;
 end;
/////////////   {процедура поиска элемента списка по фамилий}
 procedure find(st:string);
  var x:byte;
  begin   PtrCur:=PtrHead; x:=0;
   repeat
 
   if PtrCur^.fam = st then   writeln('Фамилия ',st,' находится в списке под номером ',PtrCur^.tn)
    else
      x:=x+1; ptrcur:=PtrCur^.Next;
   until PtrCur=nil;       if x=5 then      writeln('Такого элемента в списке нет');
  end;
 ////////////////////////////////////////////
 
  procedure insert(st:string); {процедура вставки элемента}
   begin ptrcur:=ptrhead;
    if PtrCur^.Fam>st then
      begin
        new(PtrNew);
        PtrNew^.fam:=st;
        PtrNew^.tn:=s+1;
        PtrHead:=Ptrnew;
        PtrNew^.Next:=PtrCur; exit  end
   else
   begin
   PtrPred:=Ptrcur;
   PtrCur:=PtrCur^.next;
    repeat
     if   (st<PtrCur^.fam) then
       begin
        new(PtrNew);
        PtrNew^.fam:=st;
        PtrNew^.tn:=s+1;
        PtrPred^.Next:=PtrNew;
        PtrNew^.Next:=Ptrcur; exit
        end
      else
       PtrPred:=Ptrcur;
       PtrCur:=PtrCur^.Next;
     until PtrCur^.next=nil;
     new(Ptrnew);
          PtrNew^.fam:=st;
          PtrNew^.tn:=s+1;
          PtrCur^.Next:=PtrNew;
          PtrNew^.next:=nil;
    end;
    
   end;
   
   
 /////////////////// {процедура удаления элемента списка}
 
 procedure del(st:string);
  begin
  PtrCur:=PtrHead;
   repeat
    if PtrCur^.fam = st then
      if PtrCur=PtrHead then
        begin
        PtrHead:=PtrCur^.Next;
        Dispose(PtrCur);
        end
       else
        if PtrCur^.next = nil then
          begin
           PtrPred^.Next:=nil;
           Dispose(PtrCur);
          end
       else
         begin
         PtrPred^.Next:=PtrCur^.Next;
         dispose(ptrcur);
         end
    else  begin PtrPred:=PtrCur; PtrCur:=PtrCur^.Next; end;
   until PtrCur=nil;
  end;
 
  ///////////////////////// процедура поиска одинаковых фамилий
 
  procedure od;
   begin
    PtrCur:=PtrHead;
    PtrPred:=PtrCur;
    PtrCur:=PtrCur^.Next;
      repeat
       if PtrPred^.Fam=PtrCur^.Fam then begin writeln('есть две одинаковые фамилий ', PtrCur^.fam);PtrPred:=PtrCur; PtrCur:=PtrCur^.next; end
       else begin PtrPred:=PtrCur; PtrCur:=PtrCur^.next; end;
 
      until PtrCur^.Next=nil
   end;
  begin
   f[1]:='Akimov';
   f[3]:='Rezin';
   f[4]:='Romanov';
   f[5]:='Vetrov';
   f[2]:='Putilov';
   n[1]:=5001;
   n[2]:=5002;
   n[3]:=5003;
   n[4]:=5004;
   n[5]:=5005;
     s:=n[5];
   for i:= 1 to 5 do
   add;
 writeln('Введите номер действия');
 writeln('1 Просмотр списка');
 writeln('2 Поиск');
 writeln('3 Добавление ');
 writeln('4 Удаление');
 Writeln('5 Просмотр списка на одинаковые фамилий');
  writeln('6 Выход');
  Z:=0;
  while  z=0 do
  begin writeln('Введите номер действия');
   readln(x);
   case x of
     1:begin x:=0; print;end;
     2:begin x:=0;writeln('Ведите фамилию'); Readln(st); find(st); end;
     3:begin x:=0;writeln('Ведите фамилию'); Readln(st);  insert(st);end;
     4:begin x:=0;writeln('Ведите фамилию'); Readln(st); del(st);  end;
     5:begin x:=0;od;end;
     6:begin z:=1;end;
  end;end;
  end.