Процедуры., Задачка с процедурой Опции

[~~Ангелочек~~]

Приветик всем!Подскажите пожалуйста в чем ошибка:
Задание: Даны две матрицы А и В. Написать программу, меняющую местами максимальные элементы этих матриц. Нахождение максимального элемента матрицы оформить в виде процедуры.

Мои наработка:

uses crt;
const n=3; m=3;
type dmyarray=array[1..n, 1..m] of integer;
var a:dmyarray;
     b:dmyarray;

Procedure vvod(var x:dmyarray );
var i,j:integer;
begin
For i:=1 to n do
For j:=1 to m do
x[i,j]:=random(30);
end;
{=========}
Procedure print(x: dmyarray);
var i,j: integer;
begin
for i:=1 to n do
begin
for J:=1 to n do write (x[i,j]);
writeln;
end;
end;
{=========}
Procedure Maximum(x: dmyarray; Var max: Integer);
Var i,j: Integer;
Begin
max:=x[1,1];
For i:=1 To n Do
For j:=1 To m Do
If x[i,j]>max Then
Begin
max:=x[i,j];
End;
End;
{=========}
begin
clrscr;
vvod(a);
vvod(b);
print(a);
writeln('=====');
print(b);
maximum(a);
readln;
end.

Вот скриншот ошибки:

Объясните, что ему не нравиться Я пробовала поставить, там запятую, точку с запятой, но ничего не помогло.
Помогите плиз

Сообщение отредактировано: Lapp - 21.12.2010 3:32

[Unconnected]

Procedure Maximum(x: dmyarray; Var max: Integer);

Ну, судя по прототипу процедуры, ещё он хочет переменную, куда будет записывать максимум. Чужую прогу переделываешь?

Сообщение отредактировано: Unconnected - 20.12.2010 19:42