Вывод отсортированного списка на экран

program kyrs;
 
type
  ykazatelb = ^ykazateli;
  ykazateli = record
    fam: string[10];
    staz: byte;
    oklad, god_rod: integer;
    next: ykazatelb;
  end;
 
var
  fail: text;
  first, data: ykazatelb;
  a: char;
 
procedure dobavl(var fail: text; var first, data: ykazatelb);
var
  first_adres, sekond_adres: ykazatelb;
  fam: string[10];
  staz: byte;
  oklad, god_rod: integer;
begin
  writeln;
  writeln('введите фамилию');
  readln(fam);
  writeln(fail, fam);
  writeln('введите стаж работы');
  readln(staz);
  writeln(fail, staz);
  writeln('введите оклад');
  readln(oklad);
  writeln(fail, oklad);
  writeln('введите год рождения сотрудника');
  readln(god_rod);
  writeln(fail, god_rod);
  new(data);
  data^.fam := fam;
  data^.staz := staz;
  data^.oklad := oklad;
  data^.god_rod := god_rod;
  data^.next := nil;
  if first = nil then {Если список пуст, то вставляем первый элемент}
    first := data
    else  {Если список не пуст, то просматриваем его до тех пор, пока не отыщется подходящее место для data^ или не закончится список}
  begin
    first_adres := first;
    sekond_adres := first;
    while (sekond_adres <> nil) and (sekond_adres^.fam <= fam) do
    begin
      first_adres := sekond_adres;
      sekond_adres := sekond_adres^.next;
    end;
    if sekond_adres = nil then {Пройден весь список}
      first_adres^.next := data {Элемент добавляется в конец списка}
          else {Пройден не весь список}
    begin
      data^.next := sekond_adres; 
      if sekond_adres = first then
        first := data {Вставляем в начало списка}
      else
        data^.next := data;{Вставляем внутрь списка}
    end;
  end;
  readln;
end;
 
procedure pokaz(data: ykazatelb);{Распечатка списка}
begin
  while data <> nil do
  begin
    Writeln(' | ', data^.fam, ' | ', data^.staz, ' | ', data^.oklad, ' | ', data^.god_rod, ' | ');
    data := data^.next;
  end;
  Writeln;
end;
 
begin
  assign(fail, 'fail.txt');
  rewrite(fail);
  a := '0';
  first := nil;
  while a <> '3' do
  begin
    writeln;
    writeln('1 ввод');
    writeln('2 показать');
    writeln('3 выход');
    readln(a);
    case a of
      '1': dobavl(fail, first, data);
      '2': pokaz(data)
    end;
  end;
  
  writeln;
  close(fail);
end.