Program Invers dan Determinan Matriks

program invers_dan_determinan;
uses wincrt;
var matrik,adjoin:array[1..2,1..2] of integer;
det,i,j:integer;
begin for i:=1 to 2 do
begin writeln('masukkan baris ',i,' matrik');
readln(matrik[i,1],matrik[i,2]);
end;
writeln;
writeln;
writeln('bentuk matrik');
for i:=1 to 2 do
begin for j:=1 to 2 do

write(matrik[i,j]:5);
writeln;
end;
writeln;
writeln;
writeln('adjoin matrik');
adjoin[1,1]:=matrik[2,2];
adjoin[1,2]:=-matrik[1,2];
adjoin[2,1]:=-matrik[2,1];
adjoin[2,2]:=matrik[1,1];
begin for i:=1 to 2 do
begin write('|');
for j:=1 to 2 do
begin write(' ',adjoin[i,j],' ');
if j = 2 then write('|');
end;
writeln;
end;
writeln;

det := (matrik[1,1] * matrik[2,2]) - (matrik[1,2] * matrik[2,1]);
writeln; writeln;

writeln('determinan matrik=', det);writeln;
writeln; writeln;
begin
writeln('invers matrik');
begin
for i := 1 to 2 do begin
write('|');
for j := 1 to 2 do begin
write(' ',adjoin[i,j]/det:0:0,' ');
if j = 2 then write('|');
end;
write;
writeln;
writeln;
end;
end;
end;
end;
end.