Обработка двухмерных массивов / Pascal ABC

[Кутяшка]

Помогите написать программу с процедурами!
Составьте программу, выясняющую, равен ли наименьший элемент двухмерного массива А(N,M) половине максимального.

[ZX Spectrum-128]

Вы конечно уже заглянули в прикрепленную тему по поводу массивов в разделе "Новички в программировании"?

[Кутяшка]

читала и не только тут, просто надо сдать эту программу и получить свою заслуженную тройку

[ZX Spectrum-128]

Так вытаскивайте оттуда код нахождения макс и мин. Остальное поможем

[Кутяшка]

С помощью нее я нахожу мин элемент, да?


Procedure Manimum(x: dmyarray; Var min, mini, minj: Integer);
Var i,j: Integer;
Begin {начальные значения}
min:=x[1,1]; mini:=1; minj:=1;
For i:=1 To N Do
For j:=1 To M Do
If x[i,j]>min Then {присвоение новых значений}
Begin
min:=x[i,j];
mini:=i;minj:=j;
End;
End.

[ZX Spectrum-128]

Знак стоит неверно, поставьте <
и не manimum, а minimum
Maximum ищется точно также, знак > и все min заменить на max.

[Кутяшка]

где ошибка то???
uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
i,j,n,m,k: byte;
sum: integer;
begin
repeat
write('Строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
write('Дана матрица');
for j:=1 to (m*4)-10 do
write(' ');
writeln('Кол.пол. Сумма отр.');
for i:=1 to n do
begin
k:=0; sum:=0;
for j:=1 to m do
begin
a[i,j]:=random(199)-99;
write(a[i,j]:4);
if a[i,j]>0 then inc(k);
if a[i,j]<0 then inc(sum,a[i,j]);
end;
writeln(k:7, sum:10);
end;
readln;
end.

[ZX Spectrum-128]

Все не так. Эта программа ищет количество положительных и сумму отрицательных (или наоборот, не суть), а вам же нужно найти максимум и минимум.
Первая процедура нормальная же была, отчего отказались от нее?