Даны 2 матриы(порядок не выше третьего). Транспонировать ту, определитель которой больше.

[Natalia55]

Program lab6;
type
at=array [1..2,1..2] of integer;
var
a,b,c:at;
i,j,f,d1,d2,n: integer;
procedure s(a,b,c:at; n:integer; d1,d2:integer);
var
i,j: integer;
begin
d1:=a[1,1]*a[2,2]-a[1,2]*a[2,1];
d2:=b[1,1]*b[2,2]-b[1,2]*b[2,1];
if d1>d2 then a:=c;
if d2>d1 then b:=c;
writeln;
for i:=1 to n do
for j:=1 to n do write(c[i,j]);
end;
begin
n:=2;
for i:=1 to n do
for j:= 1 to n do readln(a[i,j]);
begin
for i:=1 to n do
for j:=1 to n do readln(b[i,j]);
for i:= 1 to n do
for j:= 1 to n do s(a,b,c,n,d1,d2);
end;
f:=c[2,1];
c[2,1]:=c[1,2];
c[1,2]:=f;
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(c[i,j]:4);
writeln;
end;

[Natalia55]

пожалуйста, исправьте ошибки...