Mảng 2 chiều Pascal

[haibara4869]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp mình viết chương trình này với (cần gấp!!!!):
Viết chương trình nhập vào một mảng 2 chiều có m hàng và n cột là các số nguyên. Đưa ra những vị trí và giá trị của ô đó nhỏ nhất so với giá trị của những ô xung quanh (cột trước hàng sau).
VD:m=3
n=4
input:
1 2 3 4
19 6 7 8
9 10 17 5
output:
(1;1) giatri 1
(4;3) giatri 5

 

[harry9xsakura]

const fi='';
fo='';
var a:array[0..1001,0..1001]of longint;
i,j,n,m:longint;
begin
assign(input,fi);
reset(input;
readln(m,n);
for i:=1 to m do
begin
for j:=1 to n do read(a[i,j]);
readln;
end;

assign(output,fo);
rewrite(output);

for i:=1 to m do
begin
a[i,0]:=maxlongint;
a[i,n+1]:=maxlongint;
end;

for i:=1 to n do
begin
a[0,i]:=maxlongint;
a[m+1,i]:=maxlongint;
end;

for i:=1 to m do
for j:=1 to n do
if (a[i,j]<a[i+1,j]) and (a[i,j]<a[i-1,j]) and (a[i,j]<a[i,j-1]) and (a[i,j]<a[i,j+1]) then writeln(i,' ',j);

close(output);
end.