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

program z;
const n=3; {размерность матрицы N x N}
var i,j,m:byte; s,max:real;
a:array [1..n,1..n] of real;
begin
     writeln('Ввод элементов матрицы');      {задаешь матрицу}
     for i:=1 to n do
         for j:=1 to n do
             begin
                  write('a[',i,',',j,']=');
                  readln(a[i,j]);
                  if i=j
                     then {тут же ищешь суму жэлементов главной диагонали}
                         s:=s+a[i,j];
             end;
     max:=s; {говоришь, что эта сума максимальная}
     s:=0; {обнуляешь счетчик сумы}
     m:=n; {заводишь переменную, чтобы выделить элементы ниже/выше диагонали}
     for i:=1 to n do
         for j:=1 downto m do
             begin
                  if i<>j
                     then
                         s:=s+a[i,j]; {опять ищешь суму, но уже выше диагонали}
                  dec(m);
             end;
     if s>max
        then
            max:=s;   {проверяешь, больше ли она сумы элементов главной диагонали. а ниже всё тоже самое, только для элементов ниже главной диагонали}
     s:=0;
     m:=n;
     for i:=n downto 1 do
         for j:=1 downto m do
             begin
                  if i<>j
                     then
                         s:=s+a[i,j];
                  dec(m);
             end;
     if s>max
        then
            max:=s;
     writeln('Матрица');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(a[i,j],' ');
              writeln;
         end;
     writeln('Наибольшая сума элементов: ',max);
end.