Найти сумму элементов над главной диагональю и максимальный из них - Pascal

const
  n=3;
Var
  a: Array[1..n,1..n] of Integer;
  i,j,s: Integer;
BEGIN
Writeln('Введите элементы матрицы: ');
for i := 1 to n do
    for j := 1 to n do
    begin
      write('a[', i, ',', j, ']=');
      readln(a[i, j])
      end;
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
    write(a[i,j]:4);
  Writeln;
end;
 
For i:=1 to n-1 do
  For j:=i+1 to n do
    s:=s+a[i,j];
  Writeln('Сумма = ',s);
Readln
END.