Задана квадратная матрица порядка N. Вычислить сумму чисел, принадлежащих промежутку [K,L) и лежащих на главной диагонали и выше ее

[DEXTER322]

Задана квадратная матрица порядка N. Вычислить сумму чисел,
принадлежащих промежутку [K,L) и лежащих на главной диагонали и выше ее.

[p51x]

Как пробовали? Какие ошибки выдал компилятор?

[newerow1989]

const n=10;
      k=8;
      l=12;
var p:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=0;
   For i:=1 to n do
      For j:=i to n do
         If (p[i,j]>=k) and (p[i,j]<l) then
            s:=s+p[i,j];
   Writeln(s);
   Readln;
end.