Подсчитать среднее арифметическое всех компонентов файла

 const
    nMax = 20;
 
var
    f: file of integer;
    n, v,sum: integer;
    
begin
    assign(f, '1.dat');
    rewrite(f);
    randomize;
    for n := 1 to nMax do
    begin
        v := 15 - random(51);
        write(f, v);
    end;
    close(f);
    reset(f);   
     writeln('Содержимое  файла :');
    while not EoF(f) do
    begin
        read(f, v);
        writeln(v);
        sum:=sum+v;
    end;
    writeln('Среднее арифметическое файла =', sum/nMax);
end.

var
    c: char;
    f: text;
    n: integer;
 
begin
    assign(f, '1.txt');
    reset(f);
    while not EoF(f) do
    begin
        read(f,c);
        inc(n);
    end;
    writeln('В текстовом файле ' , n,' символов.');
end.

 var
  f:text;
  i,s,n:integer;
begin
  n:=20;
  randomize;
  assign(f,'1.txt');
  rewrite(f);
  for i:=1 to n do writeln(f,random(51)-35);
  close(f);
  reset(f);
  s:=0;n:=0;
  while not eof(f) do begin
    readln(f,i);
    writeln(i);
    s:=s+i;n:=n+1;
  end;
  close(f);
  writeln('<S>=',s/n:0:2);
end.

var f: file of Char;
begin
  Assign(f,'1.txt'); Reset(f); WriteLn(FileSize(f)); Close(f);
end.