Задание: Даны две матрицы А и В. Написать программу, меняющую местами максимальные элементы этих матриц. Нахождение максимального элемента матрицы оформить в виде процедуры.
Мои наработка:
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.
Вот скриншот ошибки:
Нажмите для просмотра прикрепленного файла
Объясните, что ему не нравиться
Я пробовала поставить, там запятую, точку с запятой, но ничего не помогло.Помогите плиз
