Найти сумму элементов ниже главной диагонали матрицы - Free Pascal

uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
clrscr;
writeln('Введите элементы матрицы, целые числа');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:4);
    if j<i then s:=s+a[i,j];
   end;
  writeln
 end;
write('Сумма ниже главной диагонали=',s);
readln
end.