Квадратные матрицы через подпрограммы.

uses crt;
const nmax=50;{макс разм матриц}
type Tmatr=array[1..nmax,1..nmax] of integer;{тип матриц}
procedure Vvod(var x:byte; var m:Tmatr; c:char);{создание матриц, размер матрицы, матрица, ее имя -А,В,С}
var i,j:integer;
begin
writeln('Matrica ',c,':');
repeat
write('Vvedite razmer matricy: ');
readln(x);
until (x>0)and(x<=nmax);
for i:=1 to x do
for j:=1 to x do
m[i,j]:=random(20);
end;
procedure Vyvod(x:byte; var m:Tmatr; c:char);{вывод на экран}
var i,j:integer;
begin
writeln('Matrica ',c,':');
for i:=1 to x do
  begin
    for j:=1 to x do
    write(m[i,j]:4);
    writeln;
  end;
end;
function MaxGl(x:byte;m:Tmatr):integer;{поиск макс на гл диагонали}
var i,j,mx:integer;
begin
mx:=m[1,1];
for i:=1 to x do
if m[i,i]>mx then
mx:=m[i,i];
MaxGl:=mx;
end;
procedure Trans(x:byte;var m:Tmatr);{транспонирование без создания новой матрицы}
var i,j,b,min:integer;
begin
for i:=1 to x do
for j:=1 to x do
if j<i then
  begin
    b:=m[i,j];
    m[i,j]:=m[j,i];
    m[j,i]:=b;
  end;
end;
var a,b,c,d:Tmatr;{3 исходных матрицы и транспонированная}
    xa,xb,xc,xd:byte;{их размеры}
    min:integer;{минимальный}
    t:char;{символ имени матрицы}
begin
clrscr;
randomize;
Vvod(xa,a,'A');{создаем 3 матрицы}
Vvod(xb,b,'B');
Vvod(xc,c,'C');
clrscr;{очищаем экран}
Vyvod(xa,a,'A');{выводим матрицу}
writeln('Max na gl diagonali=',MaxGl(xa,a));{выводим максимальный не гл диагонали}
readln;{задержка, читаем}
Vyvod(xb,b,'B');
writeln('Max na gl diagonali=',MaxGl(xb,b));
readln;
Vyvod(xc,c,'C');
writeln('Max na gl diagonali=',MaxGl(xc,c));
readln;
min:=MaxGl(xa,a);d:=a;xd:=xa;t:='A';{пусть минимальное в А, запоминаем ее, ее размер и имя}
if MaxGl(xb,b)<min then{если в b меньше, то b}
  begin
    min:=MaxGl(xb,b);
    d:=b;
    xd:=xb;
    t:='B';
  end;
if MaxGl(xc,c)<min then{если в c меньше, то c}}
  begin
    min:=MaxGl(xc,c);
    d:=c;
    xd:=xc;
    t:='B';
  end;
Trans(xd,d);{транспонируем запомненную матрицу}
write('Transponirovannaya ');
Vyvod(xd,d,t);{выводим ее на экран}
readln
end.