двумерный массив

[ДваДваВо7]

Разработать программу, позволяющее в двумерном массиве определить количество и положение элементов, не больше заданного пользователем числа и сумма индексов которых четна.

программа в Delphi

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TMatrix = array of array of integer;
var
A: TMatrix;
RowCount,Count,ColCount:Integer;
x:Integer;
i,j: Integer;

begin
Randomize;
Write ('vvedite 4islo strok Matrix A:');
ReadLn (RowCount);
Write ('vvedite 4islo stolbcov Matrix A:');
ReadLn (ColCount);
SetLength (A,RowCount,ColCount);
WriteLn ('Matrix A:');
For i:=0 to High (A) do
Begin
For j:=0 to High(A[i]) do
begin
A[i,j] :=-10+Random(21);
Write(A[i,j]:5);
end;
WriteLn;
end;
Write('vvedite x;');
readLn(x);
Count:=0;
for i:= 0 to High(A) do
for j := 0 to high(A[i]) do
if (A[i,j]>x) and (ABS(i-j) mod 5=0)
then
begin
write('A[',i,',',j,']=',A[i,j]:3,' ');
Inc(Count);
end;
WriteLn('Vsego ',Count,' elementov.');
readLn;
end.

Надо исправить строчку
if (A[i,j]>x) and (ABS(i-j) mod 5=0)
по условию задачи..так то задача написано проблема ток в этой строчки....кто сможет помогите

[alex_fcsm]

if (A[i,j]>x) and (ABS(i-j) mod 5=0)

А почему не

if (A[i,j]<=x) and ((i+j) mod 2=0)

ведь

не больше заданного пользователем числа и сумма индексов которых четна