Осуществить ввод общей информации по книгам, вывести книги каждого издательства, группируя их по возрастанию дат - PascalABC.NET

Program cal;//11ЛАБА - Создать программу, содержащую сведения о месячной заработной плате работников предприятия. 
//Каждая запись содержит поля - фамилия работника, наименование отдела, размер заработной платы за месяц. 
//Вывести работников по отделам в порядке возрастания их зарплат
Type
  PList = ^TList;
  TList = record
    family: string[20];
    dep: string[20];
    sal: integer;
    mark: integer;
    next: PList;   
  end;
 
  procedure addAb(var head: plist; family:string[20]; dep:string[20]; sal:integer);
  var
    cur: plist;
  begin
    new(cur);
    cur^.next := head; 
    cur^.family := family; 
    cur^.dep:= dep; 
    cur^.sal:=sal;
    cur^.mark:=0;
    head := cur;
  end;
 
Var
  i,j,n, l,k: integer;
  family, dep: string[20];
  sal, m, m_prev: integer;
  head,f,f1: PList; 
  deps: array of string[20];

begin 
  write('Сколько работников в списке? ');
  readln(n);
  for i:=1 to n do
    begin
      write('Введите фамилию работника: ');
      readln(family);
      write('Введите название отдела: ');
      readln(dep);
      write('Введите зарплату: ');
      readln(sal);
      addAb(head, family, dep, sal);
    end;
  SetLength(deps, n);
  f:=head;
  writeln;
  for i:=1 to n do
    begin
      writeln('  ', f^.family, ' ', f^.dep, ' ', f^.sal);
      f:=f^.next;
    end;
 
  // составляем список отделов deps
  l:=0; 
  f:=head;  
  for i:=1 to n do begin
    if (f^.mark=0) then
    begin
      f1 := f^.next; 
      for j:=i+1 to n do begin
        if (f1^.mark = 0) and (f^.dep = f1^.dep) then
        begin
          f1^.mark := 1;
        end;
        f1 := f1^.next;
      end;
      deps[l] := f^.dep;
      l := l+1;
    end;
    f := f^.next;
  end;
  writeln;
 
  // выводим
  k := 0;
  for i:=0 to l-1 do begin
    k := 1;
    writeln('В отделе ', deps[i], ' работает:');
    
    m:=0;
    repeat
      m_prev := m;  
      f:=head;  
      m := 1000000; 
      for j:=1 to n do begin
        if (f^.dep = deps[i]) and (f^.sal < m) and (f^.sal > m_prev) then
          m := f^.sal;
        f := f^.next;
      end;
 
      f:=head;  
      for j:=1 to n do begin
        if (f^.dep = deps[i]) and (f^.sal = m) then
          writeln(f^.family, ' ', f^.dep, ' ', f^.sal);
        f := f^.next;
      end;
    until m = 1000000;
  end;
  
end.