Прошу поправьте мне программу!!!

[aslanbek999]

Если максимальный элемент квадратной матрицы находится выше главной диагонали, транспонировать матрицу, иначе определить сумму элементов строки и столбца с номерами, равными индексам максимального элемента.

Я знаю что это очень приблизительная версия того что должно быть. Буду благодарен за любую помощь. А если еще и подскажете как должна выглядеть эта же программа модульной структуры, буду вечно благодарен.


1.1.5/6 Метод решения задачи:

1. Нахождение максимального элемента.
2. Если максимальный элемент выше главной диагонали, транспонировать матрицу М.
3. Если максимальный элемент ниже главной диагонали, определить сумму элементов строки и столбца с номерами, равными индексам максимального элемента

Program Tipovik_v_12;
const nn=50;

Type Matrix = array [1..nn, 1..nn] of real;
Var  matr: Matrix;
        i,j,n,m,im,jm : integer;
        F1,F2:text;

function MaxMatrix(M: Matrix): real;
var
  max: real;
  i, j: integer;
begin
  max:=M[1,1];
  for i:=1 to n do
    for j:=1 to n do
      if Max<M[i,j] then
       begin
        max := M[i,j];
        im:=i;
        jm:=j;
       end;
  MaxMatrix:=jm;
end;


function sum(M: Matrix): real;
var
  S,L,F: real;
  i, j,im,jm: integer;
begin
  L:=0;
  F:=0;
  for j:=1 to n do
   L:=L+M[im,j];
  for i:=1 to n do;
   F:=F+M[i,jm];
  S:=F+L-M[2,2];
  sum:=S;
end;

procedure transmatrix(var M,N: Matrix);
var
  i,j: integer;
begin
  for i:=1 to n do begin
    for j:=1 to n do
      N[j,i]:=M[i,j];
  end;
end;

begin
 assign(F1,'isdan.pas');
 assign(F2,'vdan.pas');
 reset(f1);
 rewrite(f2);
  for i:=1 to n do
   begin
    for j:=1 to n do
     read(f1,Matr[i,j]);
    readln(f1);
   end;
 writeln(f2,maxmatrix(matr));
 if im>jm then writeln(f2,'summa ravna',sum(matr)) Else transmatrix(matr);
 close(f1);
 close(f2);
end.