Даны две матрицы A [5,6], B [6,5]. Подсчитать количество элементов, которые больше 1000 и имеют нечетную сумму координат — Pascal(Паскаль)

uses crt;
type  matr=array[1..6,1..6] of integer;
procedure Vvod(var mt:matr;x,y:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to y do
   begin
    mt[i,j]:=random(201)+900;
    write(mt[i,j]:5);
   end;
  writeln;
 end;
end;
function Kol(mt:matr;x,y:byte):byte;
var i,j,k:byte;
begin
k:=0;
for i:=1 to x do
for j:=1 to y do
if (mt[i,j]>1000)and(odd(i+j))then k:=k+1;
Kol:=k;
end;
var a,b:matr;
begin
clrscr;
randomize;
Vvod(a,5,6,'A');
writeln('Количество больше 1000 с нечетной суммой координат=',Kol(a,5,6));
writeln;
Vvod(b,6,5,'B');
writeln('Количество больше 1000 с нечетной суммой координат=',Kol(b,6,5));
readln
end.