Двумерный массив. Нужно написать программу и желательна блок схема

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.

  writeln;
  end; 
   writeln;
For i:=1 to n do 
 For j:=1 to n do
  Begin
  If (j>i) then
     sum:=sum+a[i,j];
      If (A[i,j] < min)then
       min:=A[i,j];
   End;
   writeln;
Writeln('Сумма над главной диагональю равна ',sum);
   writeln;
 for i:=1 to n do
    Begin
    for j:=1 to n do
     Begin
     if A[i,j]=min then
     A[i,j]:=sum;
     write(A[i,j]:3);
     End;
   writeln;
   End;    
   readln
End.