Программирование и работа с файлами - Pascal ABC

var f,g:file of integer;
    a,i,j,n,mx:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
for i:=1 to 25 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;
writeln;
reset(f);
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;
 close(f);
writeln('Содержание файла максимумов:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a:3);
 end;
close(g);
end.