gấp gấp,thứ 2 thi học kỳ rồi

[phongnet.com]

do máy nhà mình turbo ko chạy,mà thi gấp quá,chương trình thì nío nghe đơn giản nhưng viết để nó chạy thì khó
+ Viết hàm hoặc thủ tục nhập và in ra mảng 2 chiều (sau đó in 1 mảng trong chương trình lớn)
:wacko:

[iseovip5]

procedure          nhapxuatmatran;
var         m,n,i,j:longint;
             a:array[1..1000,1..1000] of longint;
begin
             readln(m,n);
             for i:=1 to m do
             for j:=1 to n do readln(a[i,j]);
             clrscr;
             for i:=1 to m do
             begin
                          for j:=1 to n do write(a[i,j],' ');
                          writeln;
             end;
end;

[hienpq]

Sacklove lúc nhập dữ liệu nên nhập đúng ma trận nhé, từng dòng riêng, hết j kí tự của dòng i rồi mới xuống dòng.
Boy9xiii: in 1 mảng trong chương trình lớn là ý gì nhỉ? Chuyển từ mảng 2 chiều bên trên gộp thành mảng 1 chiều hả?