Определить сумму всех элементов массива, расположенных над главной диагональю

Const 
n=3; 
var a:array[1..n, 1..n] of integer; 
i,j,s:integer; 
begin 
s:=0; 
writeln('Введите элементы матрицы'); 
for i:=1 to n do 
for j:=1 to n do begin 
read(a[i,j]); 
if i<j then s:=s+a[i,j]; 
end; 
writeln; 
for i:=1 to n do begin 
for j:=1 to n do write(a[i,j], ' '); 
writeln; 
end; 
writeln('Сумма всех элементов над главной диагональю = ',s); 
end.