Дан двумерный массив a, размером (nn) (или квадратная матрица а). найти количество элементов, равных заданному числу х и расположенных в верхней треугольной матрице, расположенной выше побочной диагонали, исключая саму побочную диагональ. на паскале надо..

Program chik;
var n,i,k,j:integer;
a:array[1..100,1..100]of real;
x:real;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
writeln('Введите x');
readln(x);
k:=0;
for i:=1 to n do
for j:=1 to n do
if(a[i,j]=x)and(i+j<=n)then k:=k+1;
writeln(k);
end.