Напечатать ту из матриц, норма которой наименьшая

uses crt;
const n=4;//можете поменять или сделать ввод размера матриц с клавиатуры
type Tmatr=array[1..n,1..n] of real;
procedure Vvod(var mt:Tmatr);//создание матриц
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=10*random-4;
end;
procedure Vyvod(var mt:Tmatr;c:char);//вывод на экран 
var i,j:byte;
begin
writeln('Matrica ',c,':');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mt[i,j]:6:2);
  writeln;
 end;
end;
function Norma(mt:Tmatr):real;//поиск макс. по модулю
var i,j:byte;
    sum,max:real;
begin
max:=abs(mt[1,1]);
for i:=1 to n do
for j:=1 to n do
if abs(mt[i,j])>max then max:=abs(mt[i,j]);
Norma:=max;
end;
 
var a,b,c:Tmatr;
    minx,miny:byte;
    min:real;
    ch:char;
begin
clrscr;
randomize;
Vvod(a);
Vyvod(a,'A');
writeln('Norma A=',Norma(a):0:2);
Vvod(b);
Vyvod(b,'B');
writeln('Norma B=',Norma(b):0:2);
Vvod(c);
Vyvod(c,'C');
writeln('Norma C=',Norma(c):0:2);
min:=Norma(a);//поиск матрицы с минимадьной нормой
ch:='A';
if Norma(b)<min then
  begin
    min:=Norma(b);
    ch:='B';
  end;
if Norma(c)<min then
  begin
    min:=Norma(c);
    ch:='C';
  end;
write('Minimalnaya norma  ');
case ch of
'A':Vyvod(a,ch);
'B':Vyvod(b,ch);
'C':Vyvod(c,ch);
end;
readln
end.