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

[ДваДваВо7]

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

Код программы с другим условием

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) 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) 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)

Кто знает как помогите

[Mad_Cat]

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

[ДваДваВо7]

Сообщение от Mad_Cat

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

Сбасибо))))