Составить программку на паскале.Вычислить корешки квадратногоуравнения, данного

груба говоря, написать просто уравнения на на паскале чтобы а<>0 не принажала 0

Var   a,b,c,D,x1,x2:real;
begin
write('Введите коэффициенты a, b, c: ' );
readln(a,b,c);
D:= b*b-4*a*c; 
if Dgt;0 then 
   begin
   x1:=(-b-sqrt(D))/2/a;
   x2:=(-b+sqrt(D))/2/a;
   writeln('Два корня: ',x1,' и ',x2)
   end;
if D=0 then
   begin
   x1:=-b/2/a;
   writeln('Один корень: ',x1)
   end;
if Dlt;0 then writeln('Корней нет')
end.