Дан текстовый файл содержащий матрицу чисел ращмером m*n. Прочитать данные из файла

Var A:array[1..20,1..20] of integer;
    i,j,n,m:byte;
    f:text;
Begin
    Assign(f,'in.txt');Reset(f);
    read(f,n);readln(f,m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
       read(f,A[i,j]);
      readln(f);
    End;
    Close(f);
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
    readln;
End.

const
  mmax=20; nmax=20; W=4;
var
  a: array [1..mmax,1..nmax] of Integer;
  m, n, nn, i, j: Integer;
  f: Text;
begin
  Assign(f,'in.txt'); Reset(f); {m:=0;}
  while (m<mmax) and not SeekEOF(f) do begin
    Inc(m); nn:=0;
    while (nn<nmax) and not SeekEOLn(f) do begin
      Inc(nn); Read(f,a[m,nn]);
    end; ReadLn(f);
    if nn>n then n:=nn;
  end;
  Close(f);
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
end.

const
  mmax=20; nmax=20; W=4;
var
  a: array [1..mmax,1..nmax] of Integer;
  m, n, nn, i, j: Integer;
  e: Boolean;
  f: Text;
begin
  Assign(f,'in.txt'); Reset(f); {e:=False; m:=0;}
  while (m<mmax) and not SeekEOF(f) do begin
    Inc(m); nn:=0;
    while (nn<nmax) and not SeekEOLn(f) do begin
      Inc(nn); Read(f,a[m,nn]);
    end;
    if not SeekEOLn(f) then e:=True;
    if nn>n then n:=nn;
    ReadLn(f);
  end;
  if not SeekEOF(f) then e:=True;
  Close(f);
  if e then WriteLn('Предупреждение: превышен предельный размер матрицы ',mmax,'х',nmax);
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
end.