Преобразовать список в очередь

uses crt;
type
  PElement = ^TypeElement;
  TypeElement = record
    fam: string[100];
    num: integer;
    next: PElement;
  end;
 
type
  New_PElement = ^TypeElement;
  New_TypeElement = record
    New_fam: string[100];
    New_num: integer;
    New_next: PElement;
  end;
 
var
  PtrHead, PtrCur, ptrNew, ptrPred: PElement;
  New_PtrHead, New_PtrCur, New_ptrNew, New_ptrPred: New_PElement;
  i, Number: integer;
  Name: String;
  
  
///просмотр списка
 
 
procedure View;
begin
  ptrCur := ptrHead;
  repeat
    write(ptrCur^.Num);
    writeln(' ', ptrCur^.Fam);
    ptrCur := ptrCur^.Next;
  until ptrCur = nil;
end;
 
///поиск по списку 
 
 
procedure Find(Find_name: string);
var
  x: integer;
begin
  x := 0;
  ptrCur := ptrHead;
  repeat
    if (ptrCur^.fam = Find_name) then
      x := ptrCur^.num;
    ptrCur := ptrCur^.Next;
  until  ptrCur = nil;
  if x <> 0 then
    writeln(x)
  else
    writeln('Элемент не существует!');
end;
 
///заполнение нового  списка
 
procedure Insert2(Element: string; i: integer);
begin
  New(New_ptrNew);
  New_ptrNew^.fam := Element;
  New_ptrNew^.num := i;
  if New_ptrHead = nil then
  begin
    New_ptrNew^.Next := nil;
    New_ptrHead := New_ptrNew;
  end
     else
  begin
    New_ptrPred := nil;
    New_ptrCur := New_ptrHead;
    while (Element > New_ptrCur^.fam) and (New_ptrCur^.Next <> nil) do
    begin
      New_ptrPred := New_ptrCur;
      New_ptrCur := New_ptrCur^.Next;
    end;
    if (New_ptrCur^.Next = nil) and (Element > New_ptrCur^.fam) then
    begin
      New_ptrPred := New_ptrCur;
      New_ptrNew^.Next := nil;
    end
    else
      New_ptrNew^.Next := New_ptrCur;
    if New_ptrPred = nil then
      New_ptrHead := New_ptrNew
    else
      New_ptrPred^.Next := New_ptrNew;
  end;
end;
 
 
///вставка элемента
 
 
procedure Insert(Element: string);
begin
  
  New(ptrNew);
  ptrNew^.fam := Element;
  Number := Number + 1;
  ptrNew^.num := Number;
  if ptrHead = nil then
  begin
    ptrNew^.Next := nil;
    ptrHead := ptrNew;
  end
     else
  begin
    ptrPred := nil;
    ptrCur := ptrHead;
    while (Element > ptrCur^.fam) and (ptrCur^.Next <> nil) do
    begin
      ptrPred := ptrCur;
      ptrCur := ptrCur^.Next;
    end;
    if (ptrCur^.Next = nil) and (Element > ptrCur^.fam) then
    begin
      ptrPred := ptrCur;
      ptrNew^.Next := nil;
    end
    else
      ptrNew^.Next := ptrCur;
    if ptrPred = nil then
      ptrHead := ptrNew
    else
      ptrPred^.Next := ptrNew;
  end;
end;
 
 
///удаление элемента(ов) из списка
 
 
procedure Delete;
var
  NameForDel: string;
begin
  writeln('Введите фамилию: ');
  readln(NameForDel);
  ptrCur := ptrHead;
  while ptrCur^.Next <> nil do
  begin
    if (ptrCur^.fam = NameForDel) and (ptrCur = ptrHead) then
    begin
      ptrHead := ptrCur^.Next;
    end
                   else
    if ptrCur^.fam = NameForDel then
    begin
      ptrCur := ptrCur^.Next;
      ptrPred^.Next := ptrCur;
    end;
    ptrPred := ptrCur;
    ptrCur := ptrcur^.Next;
  end;
  if ptrCur^.fam = NameForDel then
    ptrPred^.Next := nil         
  else
    writeln('Элемент не существует!');
end;
 
 
///тело программы
 
 
begin
  
  Number := 5000;
  
  ///предварительное заполнение списка
  Insert('Anikin');
  Insert('Fedorov');
  Insert('Litvinov');
  Insert('Kilkin');
  Insert('Vetrov');
  
  //организация меню программы
  i := 0;
  while i <> 5 do
  begin
    writeln('Меню');
    writeln('Выберите одно из действий:');
    writeln('1-Просмотр списка');
    writeln('2-Добавление элемента');
    writeln('3-Удаление');
    writeln('4-Поиск');
    writeln('5-Выход');
    readln(i);
                
    case i of
      1: View;
      2:
        begin             //Вставка эл-та
          writeln('Введите фамилию:');
          Readln(Name);
          Insert(Name);
        end;
      3: delete;           //Удаление элемента
      4:
        begin              //поиск эл-та
          writeln('Введите искомую фамилию');
          readln(Name);
          find(Name);
 
        end;
      
        
          
        
    end;
  end;
end.