Поиск максимального значения заработной платы Pascal Record

program labasix;
 
type firma = record
  name : string;
  lastName : string;
  salary : integer;
end;
            
var
  svitoch : array[1..12] of firma;
  i : integer;
  countOfWorkers : integer;
begin
  write('Number of workers (not more then 12): ');
  readln(countOfWorkers);
  writeln();
  
  for i := 1 to countOfWorkers do
    begin
      write('Name: '); readln( svitoch[i].name );
      write('lastName: '); readln( svitoch[i].lastName );
      write('Salary: '); readln( svitoch[i].salary );
      writeln();
    end;
  
   for i := 1 to countOfWorkers  do
     begin
        { какой код сюда впихнуть ??? }
     end;
end.

program labasix;
type firma = record
  name : string;
  lastName : string;
  salary : integer;
end;
 
var
  svitoch : array[1..12] of firma;
  i,imx : integer;
  countOfWorkers : integer;
begin
  write('Number of workers (not more then 12): ');
  readln(countOfWorkers);
  writeln;
 
  for i := 1 to countOfWorkers do
    begin
      write('Name: '); readln( svitoch[i].name );
      write('lastName: '); readln( svitoch[i].lastName );
      write('Salary: '); readln( svitoch[i].salary );
      writeln;
    end;
  imx:=1;
   for i := 2 to countOfWorkers  do
   if svitoch[i].salary>svitoch[imx].salary then imx:=i;
   writeln('Максимальная зарплата=',svitoch[imx].salary,' у ',svitoch[i].name,' ',svitoch[i].lastName)
end.

writeln('Максимальная зарплата = ',svitoch[imx].salary,' у ',svitoch[imx].name,' ',svitoch[imx].lastName)