編程求壹個m*n的二維數組中所有元素的最大值以及所在的行號和列號，元素可以隨機產生

var m,n,i,j,k,x,y,max:0..1000;

begin

clrscr;

randomize;

readln(m,n);

for i:=1 to m do for j:=1 to n do begin

k:=random(1000);if x>max then begin max:=k;x:=i;y:=j end

end;

write(x,y);

readkey

end.