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

uses crt;
const n=4;
type mtr=array[1..n,1..n] of real;
procedure matrix(var a:mtr;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  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];
end;
procedure kvadrat(a:mtr;var b:mtr;c:string);
var i,j,k:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
for j:=1 to n do
 begin
  b[i,j]:=0;
  for k:=1 to n do
  b[i,j]:=b[i,j]+a[i,k]*a[j,k];
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:7:2);
  writeln;
 end;
end;
var a,b,c:mtr;
    s1,s2:real;
begin
matrix(a,'A');
sled(a,s1);
writeln('След=',s1:0:2);
matrix(b,'B');
sled(b,s2);
writeln('След=',s2:0:2);
if s1>s2 then
 begin
  writeln('След больше у матрицы A');
  kvadrat(a,c,'C=A^2');
 end
else
 begin
  writeln('След больше у матрицы B');
  kvadrat(b,c,'C=B^2');
 end;
end.