Среди элементов матрицы, расположенных выше главной диагонали, найти наибольшее значение

uses crt;
var a: array [1..6,1..9] of real;
    i,j,k: integer;
    sr: real;
begin
writeln('Дана матрица');
for i:=1 to 6 do
    begin
    sr:=0; k:=0;
    for j:=1 to 8 do
        begin
        a[i,j]:=19*random-9;
        write(a[i,j]:5:1);
        if a[i,j]>0 then
           begin
           sr:=sr+a[i,j];
           inc(k);
           end;
        end;
    if k>0 then a[i,9]:=sr/k
       else a[i,9]:=0;
    writeln;
    end;
writeln('Дополненная матрица');
for i:=1 to 6 do
    begin
    sr:=0; k:=0;
    for j:=1 to 9 do
        write(a[i,j]:5:1);
    writeln;
    end;
readln;
end.

uses crt;
var a: array [1..6,1..9] of real;
    i,j,k: integer;
    sr: real;
begin
writeln('Дана матрица');
for i:=1 to 6 do
    begin
    sr:=0; k:=0;
    for j:=1 to 8 do
        begin
        a[i,j]:=19*random-9;
        write(a[i,j]:5:1);
        if a[i,j]>0 then
           begin
           sr:=sr+a[i,j];
           inc(k);
           end;
        end;
    if k>0 then a[i,9]:=sr/k
       else a[i,9]:=0;
    write(a[i,9]:7:1);
    writeln;
    end;
readln;
end.

program forum;
uses
    crt;
const
     size = 10;
var
   matrix: array[1..size, 1..size] of integer;
   i, j: integer;
   max: integer;
begin
     clrscr;
     randomize;
     for i := 1 to size do
     begin
          for j := 1 to size do
          begin
               matrix[i, j] := random(10);
               write(matrix[i, j]: 3);
          end;
          writeln;
     end;
     max := - MaxInt;
     for i := 1 to size do
         for j := i + 1 to size do
             if (matrix[i, j] > max) then
                max := matrix[i, j];
     writeln('Max: ', max);
     readkey;
end.