Проверьте код

[neomax38]

Вот задание:
Даны векторы A[10], B[18]. У каждого вектора, компоненты которого не образуют неубывающей последовательности, отрицательные компоненты заменить максимальным элементом.

Ошибка не совпадения типа... Подскажите что непрвильно.

Program procedur;
Uses CRT;
type mas=array[1..20,1..20] of integer;

Procedure Vvod(k:byte;var x:mas);{ввод}
var i,j:integer;
Begin
for i:=1 to k do
for j:=1 to k do
begin
write('Введите элемент [', i,',', j,']= ');
readln(x[i,j]);
end;
end;

Procedure Vyvod(k:byte;var x:mas);{вывод}
var i,j:integer;
begin
for i:=1 to k do
begin
for j:=1 to k do
write(x[i,j]:4);
writeln;
end;
end;

procedure GetMaxSwap (var M: mas; count: integer);{//отрицательных компонентов }
var
i: integer;
max: integer;
begin
max := M[1];
for i := 1 to count do
if M[i] > max then max := M[i];
for i := 1 to count do
if M[i] < 0 then M[i] := max;
end;

begin
procedure CheckAndReplace(var M: mas; count: integer);
for i := 2 to count do
if M[i-1] > M[i] then begin // есть элемент, который меньше какого-то из предыдущих
GetMaxSwap(M, count); //отрицательные компоненты заменить максимальным элементом
break; // Выход, больше проверять нечего
end;
end;


var c,t,f:mas;
n:integer;

BEGIN
clrscr;
writeln('Матрица А:');
Vvod(10,C);
Vyvod(10,C);
writeln('Матрица В:');
Vvod(18,T);
Vyvod(18,T);

writeln('вывод ',CheckAndReplace(n,C));

end.

[Stilet]

max := M[1];

А матрица то квадратная... Тут должен быть второй индекс, но какой знать можешь только... автор программы, видимо

max := M[1,1];

Ну и так далее по всей программе...

[neomax38]

Вот исправленный. но не срабатывает процедура CheckAndReplace пишет тип фактического элемента отличается от типа формального элемента

Program procedur;
Uses CRT;
type mas=array[1..200,1..200] of real;

Procedure Vvod(k:byte;var x:mas);{ввод}
var i,j:integer;
Begin
for i:=1 to k do
for j:=1 to k do
begin
write('Введите элемент [', i,',', j,']= ');
readln(x[i,j]);
end;
end;

Procedure Vyvod(k:byte;var x:mas);{вывод}
var i,j:integer;
begin
for i:=1 to k do
begin
for j:=1 to k do
write(x[i,j]:4);
writeln;
end;
end;

procedure GetMaxSwap (var M: mas; count: integer);//отрицательных компонентов
var
i,j: integer;
max: real;
begin
max := M[1,1];
for i := 1 to count do
if M[i,j] > max then max := M[i,j];
for i := 1 to count do
if M[i,j] < 0 then M[i,j] := max;
end;

procedure CheckAndReplace(var M: mas; count: integer);
var
i,j: integer;
begin
for i := 2 to count do
if M[i-1,j] > M[i,j] then begin // есть элемент, который меньше какого-то из предыдущих
GetMaxSwap(M, count); //отрицательные компоненты заменить максимальным элементом
break; // Выход, больше проверять нечего
end;
end;


var c,t,f:mas;
n:real;

BEGIN
clrscr;
writeln('Матрица А:');
Vvod(10,C);
Vyvod(10,C);
writeln('Матрица В:');
Vvod(18,T);
Vyvod(18,T);

writeln('вывод ',CheckAndReplace(n,C));

end.