Pascal 2-dimensional arrays

var i,j,n,m:int64;
    A : array[0..10000,0..10000] of int64;
begin

    read(n,m);

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

    for i:=1 to n do
    begin
        for j:=1 to m do
            write(A[i,j],' ');
        writeln()
    end;

end.