Работа с процедурамы

[hidalgo]

Здраствуйте, поомгите пожайлучта...
Даны две матрицы A [5,6], B [6,5]. Подсчитать количество элементов, которые больше 1000 и имеют нечетную сумму координат.
Зарание спасибо.

[ОДИНОЧЕСТВО В СЕТИ]

type matrix = array [1..100,1..100] of integer;
a,b:matrix;
................
procedure f1000(x:matrix;m,n:integer;var k:integer);
i,j:integer;
begin
k:=0;
for i:=1 to m do
for j:=1 to n do
if (odd(i+j)) and (x[i,j]>1000) then inc(k);
end;

пример использования

f1000(a,5,6,count);
writeln(count);

[hidalgo]

Огромное спасибо)