Помогите, пожалуйста! Написать программу на языке Pascal для решения любого квадратного уравнения.

Var a,b,c,x1,x2,d:integer;
begin
  ReadLn(a,b,c):
  if a=0 then
    Writeln(Уравнение не квадратное)
  else
  begin
  d:=sprt(b*b-4*a*c);
  if d    WriteLn(Корней нет)
  else if d=0 then
    x1:=(-1*b)/(2*a);
    WriteLn(x1)
  else if d>0 then
    x1:=(-1*b-d)/(2*a);
    x2:=(-1*d+d)/(2*a);
    WriteLn(x1, ,x2);
  end;
end.