Написать программу, определяющую будут ли прямые A1x+B1y+C1=0 и A2x+B2y+C2=0 перпендикулярны. Если нет , то найти угол между ними — Pascal(Паскаль)

uses crt;
var a1,b1,c1,a2,b2,c2:integer;
    u:real;
begin
clrscr;
writeln('Введите коэффициенты двух прямых, целые числа:');
repeat
writeln(' -  коэффициенты первой прямой:');
readln(a1,b1,c1);
if (a1=0)and(b1=0) then writeln('Это не прямая, повторите ввод.');
until (a1<>0)or(b1<>0);
repeat
writeln(' -  коэффициенты второй прямой:');
readln(a2,b2,c2);
if (a2=0)and(b2=0) then writeln('Это не прямая, повторите ввод.');
until (a2<>0)or(b2<>0);
if a1*a2+b1*b2=0 then write('Прямые перепендикулярны')
else
 begin
  u:=abs((arctan((a1*b2-a2*b1)/(a1*a2+b1*b2)))*180/pi);
  write('Прямые не перепендикулярны, угол=',u:0:2,#248);
 end;
readln
end.