В матрице найти сумму элементов, для которых разность координат отрицательная и нечетная — Pascal(Паскаль)

program one;
uses crt;
var a:array[1..10,1..10] of integer;
s,i,j,n,m:integer;
begin clrscr;
readln(m,n);
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(10)-1;
write(a[i,j]:4);end;
writeln;
end;
s:=0;
for i:=1 to m do
for j:=1 to n do
if(i-j<0) and odd(i-j) then s:=s+a[i,j];
writeln('s',s);
readkey;
end.