Файлы в delphi

program Project_file;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
Var
f,g: text;
w,nach,k,stroki,n,j,i:integer;
s: char;
A: array [1..100] of integer;
Srednee: real;
begin
randomize;
assign(f,'E:\integerr.txt'); assign(g,'E:\reall.txt');
{Произвольно заполняем файл целых чисел}
rewrite(f);
n:=random(10)+20; stroki:=random(5)+2; {n и stroki указывают на количество элементов в строке и кол-во строк соответственно}
For i:=1 to stroki do
begin
For j:=1 to n do
begin
k:=random(100)-50; s:=' ';
write(f,k); write(f,s); If (j mod 5)=0 then begin write(f,s); write(f,s); write(f,s); write(f,s); end;
end;
writeln(f);
end; close(f);
{Заполняем файл вещ. чисел. Идея такая: считываем 1 строку из файла цел. чисел в массив
затем считаем сколько в ней элементов (nach) и среднее каждой пятерки записываем в файл вещ.
чисел, если в строке было элементов не кратно 5 то оставшиеся записываем в начало строки
массива. Затем переходим ко второй строке файла и все тоже самое только записывать элементы
в массив начинаем оттуда где закончились остатки от предыдущей}
reset(f); rewrite(g); nach:=0;
While not eof(f) do
begin
i:=0+nach;{с i места записываем эл. в мас. }
While not eoln(f) do
begin
i:=i+1; read(f,A[i]);
end;
nach:=i mod 5; j:=1;
While j<=(i-nach) do {начинаем заполнять файл вещ. чисел}
begin
Srednee:=(A[j]+A[j+1]+A[j+2]+A[j+3]+A[j+4])/5;
write(g,Srednee:5:2); write(g,s);
If(j=i-nach+4) then writeln(g,s); j:=j+5;
end;
For w:=1 to nach do {записываем остатки в начало массива}
A[w]:=A[i-1-nach+w];
end;
close(f); close(g);
readln
end.