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

uses
    crt;
var
   a:array[1..100,1..100] of integer;
   i,j,k,sum,n:integer;
begin
     writeln('wvedite razmernost matrci ');
     readln(n);
     writeln('wvedite matricu razmerom ',n,' x ',n);
     for i:= 1 to n do
         for j:= 1 to n do
             read(a[i,j]);
     k:=0;
     sum:=1;
     for i:= 1 to n do
         for j:= 1 to n do
             if i<j then
                begin
                     k:=k+1;
                     sum:=sum*a[i,j];
                end;
writeln('kol-vo elementov nad glavnoy diaganaliy ravno ',k);
writeln('proizvedenie ih ravno ',sum);
readkey
end.