Помогите пожалуйста решить задачу по Pascal

вычисляет сумму элементов расположенных ниже главной диагонали не включая саму диагональ
var a: array [1..100,1..100] of integer;
i,j,s,n: integer;
BEGIN
write('Razmer massiva: ');
Readln(n);
for i:=1 to n do
for j:=1 to n do
begin
readln(a[i,j]);
if i > j then s:=s+a[i,j];
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
writeln('Summa = ',s);
Readln;
END.