Для данной прямой составить уравнение перпендикулярной ей прямой, проходящей через указанную точку. Для прямой y=ax+b уравнение перпендикулярной y=-(1/a)*x+b — Pascal(Паскаль)

uses crt;
var a,b,x,y,a1,b1:real;
begin
clrscr;
writeln('Введите коэффициенты линейного уравнения y=ax+b:');
readln(a,b);
write('Заданное уравнение:  ');
write('y=',a:0:1,'x');
if b>0 then  write('+',b:0:1)
else write(b:0:1);
writeln;
writeln;
writeln('Введите координаты точки x,y:');
readln(x,y);
write('Уравнение перпендикулярной прямой:  ');
if a=0 then write('x=',x:0:1)
else
 begin
  a1:=-1/a;
  b1:=x/a+y;
  write('y=',a1:0:1,'x');
  if b1>0 then  write('+',b1:0:1)
  else write(b1:0:1);
 end;
readln
end.