Если в матрице B элемент с максимальным значением (среди всех элементов этой матрицы) лежит на главной диагонали, присвоить начальным элементам последовательности С1, С2, ..., СN

[Программистер]

Условие :Дана матрица B из N строк и N столбцов. Если в матрице B элемент с максимальным значением
(среди всех элементов этой матрицы) лежит на главной диагонали, присвоить начальным элементам
последовательности С1, С2, ..., СN
2 значения элементов матрицы, лежащих выше главной диагонали,
а остальным элементам этой последовательности – значения прочих элементов матрицы.

Мой код:

program Lab12procedure;
  {APPTYPE CONSOLE}
  const
  nmax=7;
  mmax=49;
    Type SMas=array[5..nmax,5..nmax] of integer;
    Type Mas=array[1..mmax] of integer;
      Procedure VvodVyvod(var dat,res: TextFile; var n: integer; var A: SMas; var name: char);
        Var i,j: byte;
          begin
            readln(dat, name);
            readln(dat,n);
            i:=1;
              while(i <= n) do
                begin
                 j:= 1;
              while(j <= n) do
                begin
                 read(dat,A[i,j]);
                 j:= j+1;
                end;
            i:= i+1;
            readln(dat);
                end;
            writeln(res, 'Иcходная матрица ',name,'[i,j] из ',n,' строк ',n,' столбцов');
            i:= 1;
              while(i <= n) do
                begin
                 j:=1;
              while(j <= n) do
                begin
                  write(res,A[i,j]:4,' ');
                  j:= j+1;
                end;
            i:= i+1;
            writeln(res);
                end;
          end;
      Procedure PoiskMax(const n:integer; const B:Smas; out max:integer;var res:TextFile);
       var i,j:byte;
        begin
          i:=1;
          j:=1;
          max:=B[i,j];
            for i:=1 to n do
             begin
              for j:=1 to n do
                begin
                  if B[i,j]>max then
                    max:=B[i,j];
                end;
             end;
        end;
      Procedure Prisvaivanie(const n:integer; const B:Smas; var C : Mas);
       var i,j:byte;
        begin
          for i:=1 to n do
          for j:=1 to n do
            begin
              if  i<j then
                C[i]:=B[i,j];
              if i>j then
                C[i]:=B[i,j];
            end;
        end;
var
  B:SMas;
  C:Mas;
  i,j,n:integer;
  dat,res:TextFile;
  name:char;
  max:integer;
begin
      AssignFile(dat,'dat12.txt');reset(dat);
       AssignFile(res,'res12.txt');rewrite(res);
        VvodVyvod(dat,res,n,B,name);
        writeln(res);
        PoiskMax(n,B,max,res);
          writeln(res,'Максимальный элемент массива ',max);
          writeln(res);
        Prisvaivanie(n,B,C);
          for i:=1 to 2*n do write(res,C[i]:4,' ');
          for i:=2*n to n*n do write(res,C[i]:4,' ');
        CloseFile(dat);
        CloseFile(res);

end.