Записать в другой файл найбольшее значение первых 10 компонентов,потом - следующих десяти компонентов и т.д.

var
  a, i, max : longint;
  f, f1 : text;
 
begin
  assign(f,'in.txt');reset(f);
  assign(f1,'out.txt');rewrite(f1);
  max := 0;
  i := 0;
  while not eof(f) do
  begin
   while not eoln(f) do
    begin
      read(f,a);
      inc(i);
      if a > max then
        max := a;
      if i = 10 then
      begin
        writeln(f1,max);
        i := 0;
        max := 0;
      end;
    end;
    readln;
  end;
  if i <> 0 then
    writeln(f1,max);
  close(f);
  close(f1);
end.

program _files;
 
const 
 
 fin        = 'in.dat';
 fout       = 'out.dat';
 
type
 
 FNumbs     = file of longint;
 
var
 
 fi,fo      : FNumbs;
 
 
Procedure fillFile(var f : FNumbs; count : byte);
{процедура заполнения файла случайными числами}
var
 i          : byte;
begin
 for i:=1 to count do write(f,random(100));
end;
 
procedure printfile(var f:FNumbs);
{процедура выводит содержимое файла на экран по 10 цифр в строке}
var
 cnt    : byte;
 n      : longint;
begin
 writeln;
 cnt:=0;
 while not eof(f) do 
  begin
   read(f,n);
   inc(cnt);
   write(N:7,' ');
   if cnt=10 then  begin
                     writeln();
                     cnt:=0;
                    end;    
  end;
 writeln();writeln();
end;  
 
function GetMax(var f:Fnumbs):longint;
{ считывает 10 чисел из файла и возвращает максимальный} 
var
 i      : byte;
 max,n  : longint;
begin
 read(f,max);
 i:=1;
 while (i<10) and not eof(f) do 
      begin
       read(f,n);
       if N>max then max:=N;
       inc(i);
      end;    
GetMax:=max;      
end;
 
BEGIN
{input}
 assign(fi,fin);rewrite(fi);
 randomize;FillFile(fi,45);
 close(fi);
 
{process}
 assign(fi,fin) ; reset(fi) ;
 assign(fo,fout); rewrite(fo);
 while not eof(fi) do write(fo,GetMax(fi));
 close(fi);close(fo);
 
{ on screen}
 assign(fi,fin);reset(fi);
 assign(fo,fout);reset(fo);
 
 writeln('in.dat: ');printfile(fi);
 writeln('out.dat: ');printfile(fo);
 close(fi);close(fo);
 
END.