Найти сумму элементов матрицы и подсчитать число её строк

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
    var
      a:array[1..10,1..10] of Integer;
 
      i,j,s,n,k:Integer;
begin
      Assign(f,'C:\Users\sancho\Desktop\my_file.txt');
  Reset(f);
  Readln(f,n);
  for i:=1 to m do begin
    for j:=1 to n do read(f,a[i,j]);
    readln(f)
  end;
 
 
 
   begin
 
  s:= 0;
  for i:=1 to n do for j:=1 to n do s:= s+a[i,j];
  writeln('sum = ', s);
  readln(s);
 
 end;
 
 k:=0;
 for i:=1 to n  do
   begin
   if a[i]>a[i+1] then
 
   a[i+1]:=a
   a[i]:=k;
 end;
 end;
 
 
  
 
end.

read(f,m);
read(f,n);
for i:=1 to m do
for j:=1 to n do
read(f,a[i,j]);

1.Считаем сколько чисел в строке
reset(f);
n:=0;
while not eoln(f) do
 begin
  read(b);
  m:=m+1;
 end;
close(f);
2.Считаем количество строк.
reset(f);
m:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=n+1;
 end;
3.Читаем матрицу.
reset(f);
for i:=1 to m do
for j:=1 to n do
read(f,a[i,j]);

reset(f);
for i:=1 to m do
for j:=1 to n do
read(f,a[i,j]);