Операторы условия и выбора

[Asira]

Даны числа a1, b1, c1, a2, b2, c2. Найти координаты точки пересечения прямых a1·x+b1·y=c1 и a2·x+b2·y=c2, либо сообщить, что эти прямые совпадают или не пересекаются.
Помогите доделать программу так чтобы она работала даже когда а1=0 а2=0 и в1=0 в2=0 ........

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a1,b1,c1,a2,b2,c2,x,y:real;
begin
writeln('a1,b1,c1,a2,b2,c2=');
readln(a1,b1,c1,a2,b2,c2);
  if(b1=0) and (b2=0) then
  begin
  x:= (c1 - c2)/(a1 - a2);
  end;
  if (a1=0) and (a2=0) then
  begin
  y:= (c1-c2)/(b1-b2);
  end;

  if (a1/b1=a2/b2) then
                   if (c1/b1=c2/b2) then writeln('Sovpadaut')
                           else writeln('Paralelnu')
else
begin
y:=(a1*c2-a2*c1)/(a1*b2-a2*b1);
x:=(c1*b2-b1*c2)/(a1*b2-a2*b1);
       writeln('peresekayutsya,a_tochka_peresechenia_C(',x:0:2,',',y:0:2,')');
end;
readln;
end.