Транспонировать матрицу

[Nerside92]

Даны две матрицы А и B.Транспонировать ту из них,где максимальный элемент больше.

Помогите решить,я плохо разбираюсь в процедурах и функциях,вот программа:

program t;
const nmax=100;
type mas=array [1..nmax,1..nmax] of integer;
var a,b,C:mas;
    i,j,amax,bmax,n : integer;
    procedure trans (var x : mas);
    var y:integer;
      begin
        for i:=1 to n-1 do
         begin
          for j:=1 to n+1 do
           begin
            y:=x[i,j];
            x[i,j]:=x[j,i];
            x[j,i]:=y;
           end;
           end;
           for i:=1 to n do
           begin
           for j:=1 to n do
           C[i,j]:=x[i,j];
           end;
         end;
           begin
             writeln ('vvedite n');
             readln (n);
             writeln ('vvedite matr A');
              for i:=1 to n do begin
                for j:=1 to n do read (a[i,j]);
                 readln;
                 end;
              writeln ('vvedite matr B');
               for i:=1 to n do
                 begin
                   for j:=1 to n do read (b[i,j]);
                   readln;
                   end;
                 amax:=a[1,1];
                 bmax:=b[1,1];
                   for i:=1 to n do
                     begin
                       if a[i,j]>amax then
                         amax:=a[i,j];
                       if b[i,j]>bmax then
                         bmax:=b[i,j];
                     end;
                 if amax>bmax then
                 trans (a)
                 else
                 trans (b);
                 writeln ('c');
                 for i:=1 to n do
                   begin
                     for j:=1 to n do
                       write (c[i,j]);
                       writeln;
                     end;
                  readln;
                  end.

В начале через процедуру я решил,препод сказал,что нада в этом месте через функцию решить:

amax:=a[1,1];
                 bmax:=b[1,1];
                   for i:=1 to n do
                     begin
                       if a[i,j]>amax then
                         amax:=a[i,j];
                       if b[i,j]>bmax then
                         bmax:=b[i,j];

А вот дальше как процесс будет проходить?

[Nerside92]

Ах да,у меня в программе есть матр С,её там не будет