Подсчитать длину созданного файла

program kr;
uses crt;
const
  key = 'press any key';
type
  matrix = array[1..10,1..10] of real;
  gg = array[1..100] of real;
var
  a,b: matrix;
  c,d: gg;
  i,j,m,n: byte;
  k:integer;
  x,sum:real;
 
  {1}
procedure generation(r:byte; var mass:matrix);
 var i,j:byte;
  begin
    for i:=1 to r do
    for j:=1 to r do
      mass[i,j]:=random(41)-10;
  end;
 
procedure toprint(r:byte; var mass:matrix);
  var i,j:byte;
  begin
    for i:=1 to r do
      begin
        for j:=1 to r do write(mass[i,j]:7:1);
        writeln;
      end;
    writeln;
  end;
    {2}
  procedure generarr(r:byte; mass:matrix; var odmass:gg);
  var i,j: byte;
  min:real;
  begin
    for i:=1 to r do
     begin
      odmass[i]:=a[i,1];
       for j:=1 to r do
        begin
        if mass[i,j]<odmass[i] then odmass[i]:=mass[i,j];
          end;
        end;
        for i:=1 to r do write(odmass[i]:7:1);
        writeln;
        
     end;
 
begin
  clrscr;
  randomize;
  write('enter размерность массива А m:');
  readln(m);
  write('enter размерность массива B n:');
  readln(n);
 
  {1}
  writeln('matrix A');
  generation(m,a);
  toprint(m,a);
 
  writeln('matrix B');
  generation(n,b);
  toprint(n,b);
  writeln(key);
  readln;
  
  {2}
  writeln('array C');
  generarr(m,a,c);
 
  writeln('array D');
  generarr(n,b,d);
  writeln(key);
  readkey;
  readln;
 
   {3}
  for K:=1 to m-1 do
    for i:=1 to m-k do
     if a[i,2]<a[i+1,2] then
    begin
     x:=a[i,2];
     a[i,2]:=a[i+1,2];
     a[i+1,2]:=x;
    end;
  Writeln;
  writeln('Второй столбец упорядочен');
  toprint(m,a);
 for K:=1 to m-1 do
    for i:=1 to m-k do
     if a[i,m]<a[i+1,m] then
    begin
     x:=a[i,m];
     a[i,m]:=a[i+1,m];
     a[i+1,m]:=x;
    end;
    writeln('Второй и последний столбец упорядочены');
    toprint(m,a);
 
      {4}
    sum:=0;
  for i:=1 to n do
  for j:=1 to n do
  if i+j=n+1 then
  sum:=sum+b[i,j];
writeln('Сумма элементов побочной диагонали матрицы В',sum);
 
end.

Var F:Text;
     Buf,S:String;
     M:Integer;  //  Кол-во символов
...
begin
Assign(F,'Путь_к_файлу.ххх');
ReWrite(F);
... // Записи в файл.
Close(F);
ReSet(F);
while not eof(f) do begin
ReadLn(F,Buf);
S:=S+Buf;
end;
M:=Length(S);
end;

Var f:Text;
    ñ:char;
    s:string;
    m:Integer;  //  Êîë-âî ñèìâîëîâ
//åñëè âñå ñèìâîëû ôàéëà, âêëþ÷àÿ #13, #10, #26
m:=0;
while not eof(f) do
 begin
 read(f,c);
 m:=m+1;
end;
//åñëè òîëüêî ñèìâîëû ñòðîê
m:=0;
while not eof(f) do
 begin
 readln(f,s);
 m:=m+length(s);
end;