Pascal :Viết chương trình giải hệ 2 phương trình bậc nhất 2 ẩn: $\left \{ {{ax+by=c} \atop {hx+iy=k}} \right.$ Giúp gấp với mấy bro :))

program giai_hept ;
uses crt;
var a, h, b, i, c, k, x, y, Dx, Dy, D: real;

begin
clrscr;
write ('a = '); readln (a);
write ('b = '); readln (b);
write ('c ='); readln (c);
write ('h ='); readln (h);
write ('i ='); readln (i);
write ('k ='); readln (k);
D := a*b- h*i;
Dx := c*i- k*b;
Dy := a*k- h*c;
if D <> 0 then
begin
writeln(' phuong trinh co nghiem :');
x := Dx/D;
y := Dy/D;
writeln(' x=', x : 8 : 2);
writeln ('y=', y : 8 : 2);
end
else
if (Dx = 0) and (Dy = 0) and (D = 0) Then
writeln (' vo dinh ')
else
writeln ('vo nghiem ');

readln;
end.