Найти сотрудника с максимальной зарплатой и его отдел

Program clinic;
uses    crt;
const   n=5;
type
        ppl=record
        fam:string;
        nam:string;
        otc:string;
        slr:integer;
        otd:integer;
        End;
var     a:array[1..n] of ppl;
        otd2,i,mx:integer;
 
Begin
for i:=1 to n do
Begin
write('Familiya ',i,'go rabotnika: ');
readln(a[i].fam);
write('Imya ',i,'go rabotnika: ');
readln(a[i].nam);
write('Otchestvo ',i,'go rabotnika: ');
readln(a[i].otc);
write('Zarplata ',i,'go rabotnika: ');
readln(a[i].slr);
write('Nomer otdela ',i,'go rabotnika: ');
readln(a[i].otd);
clrscr;
End;
mx:=a[i].slr;
for i:=1 to n do
if a[i].slr>mx then
Begin
mx:=a[i].slr;
otd2:=a[i].otd;
End;
writeln('Max zrp: ',mx, ' Otdel: ',otd2);
readln;
End.

const   n=5;
type
        ppl=record
         nomer:integer;
         fam:string;
         nam:string;
         otc:string;
         zarpl:real;
        End;
var     a:array[1..n] of ppl;
        i,mi:integer;
        mz:real;
        f1,f2:text;
Begin
 assign(f1,'in.txt');reset(f1);
 assign(f2,'out.txt');rewrite(f2);
 for i:=1 to n do
   with a[i] do
    begin
     readln(f1,nomer);
     write(nomer,' ');
     readln(f1,fam);
     write(fam,' ');
     readln(f1,nam);
     write(nam,' ');
     readln(f1,otc);
     write(otc,' ');
     readln(f1,zarpl);
     writeln(zarpl:0:2)
    end;
 writeln;   
 mz:=a[1].zarpl;
 for i:=2 to n do
  if a[i].zarpl>mz 
   then 
    begin
     mz:=a[i].zarpl;
     mi:=i
    end; 
 with a[mi] do
  begin
   writeln(f2,nomer,' ',fam,' ',nam,' ',otc,' ',zarpl:0:2);
   writeln(nomer,' ',fam,' ',nam,' ',otc,' ',zarpl:0:2);
  end;
 close(f1);close(f2); 
readln;
End.