Вылазиет "Неожиданный символ ''' " - Turbo Pascal

Uses crt;
var a1,b1,c1,a2,b2,c2,x,y:real;
test,ntest:integer;
BEGIN
clrscr;
write('введите количество тестов : ');
readln(ntest);
for test := 1 to ntest do
begin
writeln('Тест',test');
Write('Enter a1=');
Readln(a1);
Write('Enter b1=');
Readln(b1);
Write('Enter c1=');
Readln(c1);
Write('Enter a2=');
Readln(a2);
Write('Enter b2=');
Readln(b2);
Write('Enter c2=');
Readln(c2);
writeln; 
write('Ответ : ');
if((a1=0)and (b1=0)) or ((a2=0) and(b2=0))
then writeln ('Это не прямая(прямые).')
else if (a1*b1=a2*b2) and (a1*c1=a2*c2)
then writeln ('прямые совпадают.')
else if a1*b1=a2*b1
then writeln('Прямые параллельны.')
else begin 
x:=(c1*b2-c1*a2)/(b1*a2-b2*a1);
y:=(c2*a1-c1*a2)/(b1*a2-b2*a1);
writeln('Координаты точки пересечения');
writeln( 'x = ',x:5:2);
writeln('y = ',y:5:2);
end; writeln
end; readln
END.