Двухмерный массив в процедуре

[Mr_freeman]

Мне нужно спросить, может ли, и как, двухмерный массив выступать формальным параметром в процедуре?

Вообщем нужна процедура которая по матрице (х) ищет координаты (х1,х2) максимального элемента.

Вот мой код процедуры:

procedure max(x: array of byte; var x1,x2: byte);
var maxel: byte;
begin
maxel:=0;
for i:= 1 to 3 do
for j:= 1 to 3 do
begin
if maxel < x[i,j] then (На этой строке выдает ошибку)
begin
maxel:=x[i,j];
x1:=i; x2:=j;
end;
end;
end;

Помогите пожалуйста

[p51x]

x: array of byte;

Если вам нужен двухмерный, так и передавайте двухмерный.

x: array of array of byte;

[Mr_freeman]

Не получается, ошибку выдает...

[Poltev86]

massiv=array[1..n,1..m] of integer;

procedure max(var X:massiv);
var
i,j,max,x,y:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
if x[i,j]>max tnen (max:=X[i,j]) and (x:=i) and (y:=j);
end;
writeln('Maксимальный элемент равен=',max);
writeln('координаты: x=',x,'y=',y);
end;

[Poltev86]

Const
NN=10;
type
TElem =integer;
Matrix = array[1..NN,1..NN] of TElem;

Procedure MaxElement(A:Matrix;n:integer);
var
i,j,x,y:integer;
max:integer;
begin
max:=0;
For i:=1 to n do
begin
for j:=1 to n do
if a[i,j]>max then
BEGIN
max:=a[i,j];
x:=i;
y:=j;
END;
end;
writeln('Maксимальный элемент равен=',max:4:1);
writeln('координаты: x=',x:1,'y=',y:1);
end;

[Poltev86]

Вот рабочая програмка

[Mr_freeman]

Poltev86, спасибо огромное, очень помог=)