Mang 2 chiều

program Hello;
uses crt;
var
    i, j, hang, cot: integer;
    a: array[1..100,1..100] of integer;
begin
    clrscr;
    write('Nhap so luong hang cua mang: '); readln(hang);
    write('Nhap so luong cot cua mang: '); readln(cot);

    for i:=1 to hang do 
        for j:=1 to cot do 
            begin 
                write('a[', i, ', ', j,']='); readln(a[i, j]);
            end;
    
    writeln('Cac phan tu cua mang la: ');
    for i:=1 to hang do 
        begin 
            for j:=1 to cot do 
                write(a[i, j], ' ');
            writeln;
        end;
    
    readln;   
end.