Вывести в файл данные о работнике, имеющем максимальный оклад

const n=5;
type worker=record
     num:byte;
     fio:string[50];
     oklad:real;
     end;
var w:array[1..n]of worker;
    G:file of worker;
    f1:Text;
    i:integer;
    max:real;
begin
Assign(G,'data.txt');
Assign(f1,'result.txt');
Rewrite(f1); Rewrite(G);
for i:=1 to n do
begin
  writeln('Введите данные ',i,' работника:');
  write('Введите табельный номер: '); readln(w[i].num);
  write('Введите ФИО: '); readln(w[i].fio);
  write('Введите оклад: '); readln(w[i].oklad);
  write(G,w[i]);
end;
max:=0;
for i:=1 to n do
if w[i].oklad>max then max:=w[i].oklad;
write(f1,max);
Erase(f1); Erase(G)
Close(f1); Close(G);
end.

    max:worker;

max.oklad:=0;

if w[i].oklad>max.oklad then max:=w[i];
write(f1,'Табельный номер: ',max.num,', ФИО: ',max.fio, ', Оклад: ', max.oklad);
write('Рабочий с максимальным окладом: табельный номер: ',max.num,', ФИО: ',max.fio, ', Оклад: ', max.oklad);
readln;
Close(f1); Close(G);
Erase(f1); Erase(G)
end.

const n=5;
type worker=record
     num:byte;
     fio:string[50];
     oklad:real;
     end;
var w,x:worker;
    F:file of worker;
    G:Text;
    i:integer;
    max:real;
begin
Assign(F,'data');
Rewrite(F);
for i:=1 to n do
 begin
  writeln('Введите данные ',i,' работника:');
  write('Введите табельный номер: '); readln(w.num);
  write('Введите ФИО: '); readln(w.fio);
  write('Введите оклад: '); readln(w.oklad);
  write(F,w);
 end;
reset(F);
for i:=0 to filesize(F)-1 do
 begin
  read(F,w);
  if i=0 then
   begin
    max:=w.oklad;
    x:=w;
   end
  else if w.oklad>max then
   begin
    max:=w.oklad;
    x:=w;
   end;
 end;
close(F);
Assign(G,'result.txt');
Rewrite(G);
write(G,x.num,' ',x.fio,' ',x.oklad:0:2);
Close(G);
Erase(F);
Erase(G) ;
writeln('Файл записей создан, сведения о работнике записаны в файл result.txt');
writeln('Но посмотреть это Вы не можете поскольку кто-то написал, что файлы нужно уничтожить');
end.