Преобразование в дек

uses crt;
 
type
    PeElement=^TypeElement;
    TypeElement=record;
    namb:integer;
    fam:string;
    next:PeElement;
 
    end;
 
var
ptrHead,ptrCur,ptrNext,ptrPred,ptrNew:PeElement;
nomer: array [1..5] of integer;
imj: array [1..5] of string;
i,k,j:integer;
name:string;
 
 
procedure vivod;//процедуры вывода списка
begin
     TextColor(4);
     ptrcur:=ptrhead;
     while ptrcur<>nil do
     begin
       writeln(ptrcur^.namb,'     ',ptrcur^.fam);
       ptrCur:=ptrCur^.next;
    end;
    Writeln();
    TextColor(1);
    Writeln('Введите 5 для содтировки списка по номерам');
 
    Writeln('Введите номер желаемой операции');
    TextColor(0);
end;
 
 
procedure sort;//cортировка
begin
    TextColor(4);
    i:=1;
    ptrcur:=ptrhead;
    new(ptrnew);
       for i:=5001 to j do
       begin
         while ptrcur<>nil do
         begin
            if ptrcur^.namb=i then
            ptrnew:=ptrcur;
            ptrcur:=ptrcur^.next;
         end;
    if k<>ptrnew^.namb then
    begin
      k:=ptrnew^.namb;
      writeln(ptrnew^.namb,'     ',ptrnew^.fam);
    end;
    ptrcur:=ptrhead;
    end;
    TextColor(1);writeln();
    Writeln('Введите номер желаемой операции');
    TextColor(0);
end;
 
procedure find(var name:string); //поиск в списке
begin
    i:=0;
    ptrcur:= ptrhead;
    while i=0 do
    begin
        if ptrcur^.fam=name then
        begin
            writeln();
            writeln(ptrcur^.namb,'   ',ptrcur^.fam);writeln();
            Writeln('Введите номер желаемой операции');
            i:=1;
        end
        else
        begin
            ptrcur:=ptrcur^.next;
            if ptrcur=nil then
            begin
                writeln();
                writeln('Такой фамилии нет');writeln();
                Writeln('Введите номер желаемой операции');
                i:=1;
            end;
        end;
    end;
end;
 
procedure del(var name:string);//процедура удаления
begin
    if name='0' then
    Writeln('Введите номер желаемой операции') else
    begin
    i:=0;
    ptrcur:=ptrhead;
    if ptrcur^.fam=name then
    begin
       ptrhead:=ptrcur^.next;
       dispose(ptrCur);Writeln();
       Writeln('Удалено');Writeln();
       Writeln('Введите номер желаемой операции');
    end
    else
    begin
        ptrpred:=ptrcur;
        ptrcur:=ptrcur^.next;
 
    while i<>1   do
    begin
        if ptrcur^.next<>nil then
           if ptrcur^.fam=name then
           begin
                ptrpred^.next:=ptrcur^.next;
                i:=1;
                dispose(ptrCur);Writeln();
                Writeln('Удалено');Writeln();
                Writeln('Введите номер желаемой операции');
           end
           else
           begin
                 ptrpred:=ptrcur;
                 ptrcur:=ptrcur^.next;
           end
        else
        begin
             if ptrcur^.fam=name then
             begin
                  ptrpred^.next:=nil;Writeln();
                  Writeln('Удалено');Writeln();
                  Writeln('Введите номер желаемой операции');
                  dispose(ptrCur);
             end
             else
             begin
                 Writeln();
                 writeln('Нет такой фамилии');Writeln();
                 Writeln('Введите номер желаемой операции');
             end;
             i:=1;
        end;
    end;
    end;
    end;
 
    i:=10;
end;
 
procedure Ins(var name:string);//процедура вставки
 
begin
   if name='0' then
   Writeln('Введите номер желаемой операции') else
   begin
   j:=j+1;
   New(ptrnew);
   ptrnew^.namb:=j;
   ptrnew^.fam:=name;
   i:=0;
 
   ptrcur:=ptrhead;
   if ptrcur^.fam=name then
   begin
        i:=1;Writeln();
        writeln('Такая фамилия уже в списке');Writeln();
        Writeln('Введите номер желаемой операции');
   end;
   if ptrcur^.fam>name then
   begin
        ptrHead:=ptrnew;
        ptrnew^.next:=ptrcur;
        i:=1;Writeln();
        writeln('Добавлено');Writeln();
        Writeln('Введите номер желаемой операции');
   end;
   while i=0 do
   begin
      if ptrcur=nil then
      begin
           ptrnew^.next:=nil;
           ptrpred^.next:=ptrnew;
           i:=1;Writeln();
           writeln('Ддобавлено');Writeln();
           Writeln('Введите номер желаемой операции');
           ptrcur:=ptrhead;
      end
      else
 
      if ptrcur^.fam<name then
      begin
          ptrPred:=ptrCur;
          ptrnext:=ptrCur^.next;
          if ptrnext<>nil then
          if ptrNext^.fam>name then
          begin
              ptrnew^.next:=ptrNext;
              ptrpred^.next:=ptrnew;
              i:=1; Writeln();
              writeln('Добавлено');Writeln();
              Writeln('Введите номер желаемой операции');
          end;
      end;
      if ptrcur^.fam=name then
        begin
             i:=1; Writeln();
             writeln('Такая фамилия уже в списке');Writeln();
             Writeln('Введите номер желаемой операции');
        end;
      if ptrcur<>nil then
      ptrCur:=ptrCur^.next;
   end;
   end;
end;
 
begin
j:=5005;
for i:=1 to 5 do
nomer[i]:=i+5000;
imj[1]:='Anekin';
imj[2]:='Fedorov';
imj[3]:='LiTvinov';
imj[4]:='Nikonov';
imj[5]:='Vetrov';
 
for i:=1 to 5 do
begin
    new(ptrCur);
    ptrCur^.namb:=nomer[i];
    ptrCur^.fam:=imj[i];
 
    if i=1 then
       ptrHead:=ptrCur;
    if i<>1 then
       ptrPred^.Next:=ptrCur;
    if i=5 then
       ptrCur^.next:=nil;
    ptrpred:=ptrCur;
end;
k:=10;
while k<>0 do
begin
    TextColor(1);
    ClrScr;
    writeln('0 - выход');
    writeln('1 - вывод списка');
    writeln('2 - добавление элемента в список');
    writeln('3 - удаление элемента по фамилии');
    writeln('4 - Поиск элемента');
    writeln('5 - вывод сортированного списка по номерам');
    Writeln();
    TextColor(0);
    if k=1 then  vivod;
    if k=2 then
    begin
         writeln('введите фамилию, которую нужно добавить(0-Отмена)');
         read(name);
         TextColor(1);
         ins(name);
         TextColor(0);
    end;
    if k=3 then
    begin
         writeln('введите фамилию, которую нужно удалить(0-Отмена)');
         read(name);
         TextColor(1);
         del(name);
         TextColor(0);
    end;
    if k=4 then
    begin
         writeln('введите фамилию, которую нужно найти');
         read(name);
         TextColor(1);
         find(name);
         TextColor(0);
    end;
    if k=5 then sort;
 
    K:=9;
    read(k);
end;
 
 
end.