Создать файл f1 из целых чисел...

program Project2;
 
procedure ReadDataFile(FileName:string);
var i,vrem:integer;
    t:file of integer;
begin
    Assign(t,FileName);
    Reset(t);
     for i:=1 to FileSize(t) do
      begin
         Read(t,vrem);
         Write(vrem,' ');
      end;
    Close(t);
end;
 
var
    t1,t2:file of integer;
    i,j,k,max:integer;
    Number,Chisl,vrem:integer;
    mas:array[1..5] of integer;
begin
     {Начало 1}{Запрашиваем число чисел и записываем
      в фаил  "f1.txt" }
    Assign(t1,'f1.txt');
    ReWrite(t1);
    Write('Number=');
    ReadLn(Number);
    vrem:=0;
      if Number>=1 then
        for i:=1 to Number do
          begin
             Write('Number[', i ,']=');
             ReadLn(vrem);
             Write(t1,vrem);
          end;
    Close(t1);
      {Конец 1}
    ReadDataFile('f1.txt'); {выводим значения из "f1.txt" }
    WriteLn;
    Assign(t1,'f1.txt');
    Reset(t1);
    Assign(t2,'f2.txt');
    ReWrite(t2);
    Chisl:=FileSize(t1) div 5;
     if Chisl<>0 then
       begin
          {Начало 2} {если у нас чисел больше пяти штук}
          for i:=1 to Chisl do
           begin
               for j:=1 to 5 do
                begin
                   Read(t1,vrem);
                   mas[j]:=vrem;
                end;
              {Определение максимума}
          max:=mas[1];
          mas[1]:=-9999;
           for k:=2 to 5 do
        begin
            if max<mas[k] then
              max:=mas[k];
           mas[k]:=-9999;
                end;
              Write(t2,max);{максимум из 5 в фаил}
              {Конец определение максимума}
           end;
         {вдруг осталось ещё что нить}
        if (FileSize(t1)-Chisl*5)<>0 then
         begin
             for j:=1 to (FileSize(t1)-Chisl*5) do
               begin
                   Read(t1,vrem);
                   mas[j]:=vrem;
               end;
         {Конец вдруг осталось ещё что нить}
              {Определение максимума для вдруг}
            max:=mas[1];
        mas[1]:=-9999;
          for k:=2 to (FileSize(t1)-Chisl*5) do
        begin
            if max<mas[k] then
              max:=mas[k];
          mas[k]:=-9999;
                end;
            Write(t2,max);
              {Конец определение максимума для вдруг}
         end;
            {Конец 2}
       end
     else
       begin
           {Начало 3} {Если изначально число чисел меньше 5}
           for j:=1 to (FileSize(t1)-Chisl*5) do
             begin
                Read(t1,vrem);
                mas[j]:=vrem;
             end;
          max:=mas[1];
      mas[1]:=-9999;
          for k:=2 to (FileSize(t1)-Chisl*5) do
        begin
            if max<mas[k] then
              max:=mas[k];
          mas[k]:=-9999;
                end;
            Write(t2,max);
           {Конец 3}
       end;
    Close(t2);
    Close(t1);
    WriteLn('Max:');
    ReadDataFile('f2.txt'); {выводим значения из "f2.txt"---Максимумы}
    ReadLn;
end.