Crammer w tabelach - pascal

program cramer;

uses crt;

var
z:array[1..2,1..3]of integer;
w,wx,wy,x,y:real;

begin
writeln;
write('podaj A1: '); readln(z[1,1]);
write('podaj B1: '); readln(z[1,2]);
write('podaj C1: '); readln(z[1,3]);
write('podaj A2: '); readln(z[2,1]);
write('podaj B2: '); readln(z[2,2]);
write('podaj C2: '); readln(z[2,3]);
w:=z[1,1]*z[2,2]-z[1,2]*z[2,1];
if w=0 then writeln('Przyro mi! Ten ukald nie ma rozwiazan!');
if w<>0 then
begin
wx:=z[1,3]*z[2,2]-z[2,3]*z[1,2];
wy:=z[1,1]*z[2,3]-z[1,3]*z[2,1];
x:=wx/w;
y:=wy/w;
writeln('Rozwiazanie: X=',x:5:5,' ,a Y=',y:5:5);
end;
writeln('Nacisnij ENTER aby zakonczyc dzialanie programu.');
readln;
end.