Считать матрицу из файла, используя динамический массив - Free Pascal

Type
  mat = Array [1..1,1..1] of integer;
Var
  x: ^mat;
  i,j,n,m,buf: integer;
  F:file of integer;
BEGIN
{считываем из файла кол-во строк и кол-во столбцов}
assign(f,'D:\\file.txt');
reset(f);
read(f,n);
read(f,m);
 
{выделяем память}
GetMem(x,m*n*SizeOf(integer));
 
{создаем массив чтением из файла}
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    read(f,buf);
    x^[i,j]:=buf;
    write(x^[i,j]:4);
  end;
  Writeln
end;
FreeMem(x,n*m*SizeOf(integer));
close(F);
Readln;
 
END.