Записать в файл g наибольшее значение первых пяти компонент файла f

var f,g:file of integer;
    k,a,i,j,n,mx:integer;
begin
randomize;
assign(f,'fileF');
write('Сколько чисел записать в файл F k=');
readln(k);
rewrite(f);
for i:=1 to k do
 begin
  a:=random(100);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:3);
 end;
writeln;
reset(f);
assign(g,'fileG');
rewrite(g);
n:=filesize(f) div 5;
for i:=0 to n-1 do //выберем максимумы в полных пятерках
 begin
  j:=5*i;
  seek(f,j);
  read(f,mx);
  while(j<5*i+4)and(j<filesize(f)-1)do
   begin
    j:=j+1;
    seek(f,j);
    read(f,a);
    if a>mx then mx:=a;
   end;
  write(g,mx);
 end;
if 5*n<filesize(f) then //в неполной группе, если она есть
 begin
  j:=5*n;
  seek(f,j);
  read(f,mx);
  while j<filesize(f)-1 do
   begin
    j:=j+1;
    seek(f,j);
    read(f,a);
    if a>mx then mx:=a;
   end;
  write(g,mx);
 end;
close(f);
writeln('Содержание файла максимумов:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a:3);
 end;
close(g);
end.