Citire si afisare matrice

>

program matr_cit_afis;
var a:array[1..50,1..50] of integer;
    n,m,i,j:integer;
begin
    write('nr linii=');readln(n);
    write('nr coloane=');readln(m);
    for i:=1 to n do
        for j:=1 to m do begin
            write('a[',i,',',j,']=');readln(a[i,j]);
            end;
    for i:=1 to n do begin
        for j:=1 to m do write(a[i,j], ' ');
        writeln;
        end;
    readln;
end.
{by Neo  PascalZone.evonet.ro}