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

program sem4; 
uses crt;
const
    nmax=10;
  var
    a: array[1..nmax,1..nmax] of integer;
    min,i,j,sum,k,n: integer;
begin
  write('Введите размер мартицы: ');
  readln(n);
 
  
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
   begin 
 write('A[',i,',',j,']='); 
 readLn(A[i,j]);
    end;
    writeln;
  end;
 
 
 
  sum:=0; k:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if (j>i)and(a[i,j]>0) then
      begin
        inc(k);
        sum:=sum+a[i,j];
         end
      else write('    ');
    end;
    writeln;
  end;
  begin;
  For i:=1 to n do
  for j:=1 to n do
  
 min:=A[1,1];
 for i:=1 to n do
  for j:=1 to n do
  if min>a[i,j] then  min:=a[i,j];
  end;
 for i := 1 to n do begin if a[i,j]=min then a[i,j]:= sum; 
write(A[i,j]:4);
 writeln();
 
 end;
   writeln('сумма элементов= ',sum,'; minimum ',min);
end.

uses crt; // модель для работы с экраном
 
const
    K = 3 ; //  задаем размер нашего массива
type
    massiv = array [1..K, 1..K] of integer; // создаем тип для массива
var
    mass : massiv; // объявляем 
    summa , min , i , j : integer; // переменные
 
begin
clrscr; // очищаем экран
randomize; // включаем генератор случайных чисел
summa := 0; // обнуляем сумму
 
for i:=1 to K do // пускаем 
    for j:=1 to K do // цикл
        mass[i,j] := random(10); // и заполняем массив случайными числами
 
min := mass[1,1]; // минимальному элементу присваиваем зн-е 1-го элемента массива
 
for i:=1 to K do // пускаем
    begin
        for j:=1 to K do // цикл
            begin
                write(mass[i,j], ' | '); // выводим массив
                if (mass[i,j] < min) then
                    min := mass[i,j]; // ищем минимальным элемент
            end;
        writeln; // переносим курсор на новую строку, чтобы получилась матрица
    end;
 
for i := 1 to K do // пускаем 
    for j := i + 1 to K do // цикл
       summa := summa + mass[i,j]; // ищем сумму
 
Writeln;
Writeln('Минимальный элемент матрицы: ', min);
Writeln('Сумма равна ', summa);
Writeln('Матрица :');
 
for i:=1 to K do // пускаем 
    begin
        for j:=1 to K do // цикл 
            begin
                if (mass[i,j] = min) then
                    mass[i,j] := summa; // заменяем минимальные элементы на сумму
                write(mass[i,j]:2, ' | '); // выводим новый массив
            end;
        writeln;
    end;
 
readln; // чтобы программа не закрывалась
end.