Giải HPT bậc nhất hai ẩn(Passcal)

Bài tập.
Viết chương trình giải và biện luận hệ pt:

Với các hệ số được nhập vào từ bàn phím.

Bài giải:
Program giai_hpt_bac_nhat_hai_an;
VAR
a1,b1,c1,a2,b2,c2,d,dx,dy,x,y:real;
traloi:char;
BEGIN
repeat
Clrscr;
writeln(`Nhap he so a1,b1,c1`); readln(a1,b1,c1);
writeln(`Nhap he so a2,b2,c2`); readln(a2,b2,c2);
begin
d:=a1*b2-a2*b1;
dx:=-b1*c2+b2*c1;
dy:=a1*c2-a2*c1;
end;
if (d=0) and (dx=0) and (dy =0) then writeln(`hpt vo so nghiem`) else
if (dx<>0) and (dy<>0) and (d =0) then writeln(`hpt vo nghiem`) else
write(`Hpt co nghiem:x=`,dx/d:9:2,`;y=`,dy/d:9:2);
readln;
writeln(`Ban co muon thuc hien nua khong?`);read(traloi);
until upcase(traloi)=`K`;
readln;
End.