Даны две квадратные вещественные матрицы 10 порядка. Напечатать квадрат той из них, в которой наименьший след

uses crt;
const n=10;
type mtr=array[1..n,1..n] of real;
//создание матриц
procedure Vvod(var a:mtr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10*random;
end;
//вывод матриц на экран
procedure Vyvod(a:mtr;c:string);
var i,j:byte;
begin
writeln(c);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:7:2);
  writeln;
 end;
end;
//вычисление следа матриц
procedure Sled(a:mtr;var s:real);
var i:byte;
begin
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('След=',s:0:2);
writeln;
end;
//возведение матриц в квадрат
procedure Kvd(a:mtr;var b:mtr);
var i,j,k:byte;
begin
for k:=1 to n do
for j:=1 to n do
 begin
  b[k,j]:=0;
  for i:=1 to n do
  b[k,j]:=b[k,j]+a[k,i]*a[i,j];
 end;
end;
var a,b,c:mtr;
    sa,sb:real;
begin
clrscr;
randomize;
Vvod(a);
Vvod(b);
Vyvod(a,'Исходная матрица А:');
Sled(a,sa);
Vyvod(b,'Исходная матрица B:');
Sled(b,sb);
write('Нажмите Enter для продолжения');
readln;
if sa<sb then
 begin
  writeln('След матрицы А меньше');
  Kvd(a,c);
  Vyvod(c,'Матрица C=A^2');
 end
else
 begin
  writeln('След матрицы B меньше');
  Kvd(b,c);
  Vyvod(c,'Матрица C=B^2');
 end;
readln
end.