Двумерный массив

[eragon_ua]

Ребята, помогите пожалуйста решить задачку...

В заданной матрице R(9,9) вычислить сумму тех элементов, размещенных на главной диагонали и выше ее, которые превышают за величиной все элементы размещенные ниже главной диагонали. Вывести исходную матрицу, выбранные элементы и вычисленную сумму

[Летучий_СкилетиК]

uses crt;
const n = 9;
var
    a: array [1..n, 1..n] of integer;
    i,j,s,max:integer;
begin
randomize;
for i:=1 to n do
begin
    for j:=1 to n do
    begin
        a[i,j]:=random(100);
        write(a[i,j],' ') ;
    end;
    writeln;
end;
max:=a[2,1];
for i:=2 to n do
for j:=1 to i - 1 do
if a[i,j]>=max then max:=a[i,j];

s:=0;
for i:=1 to n do
   for j:=i to n do
   begin
      s:=s+a[i,j];
      if a[i,j]>=max then write(a[i,j],' ');
   end;
   writeln;
writeln('s=',s);
end.

[eragon_ua]

Спасибо Вам большое.