Решение квадратного уравнения в Паскале

[yaxx]

Вобщем писал я программу для решения квадратного уравнения (в паскале первые три часа моей жизни работаю сперва смотрел что попало ща вот минут 10 назад вспомнил про домашку) незнаю покажите ошибки в коде но у меня все время пишет что дискриминант равен 0 :\
вот код

program sqr;
uses crt;
var a,b,c,d,x,x1,x2:real;
begin
clrscr;
writeln('Vvedite Koefficienti yravneniya');
readln(a,b,c);
writeln('diskriminant:=',d:3:0);
D:=b*b-4*a*c;
if D<0 then writeln('korneu net')
else
writeln('Korni yravneniya');
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
writeln('x1:=',x1:5:1);
writeln('x2:=',x2:5:1);
if d:=0 then x:=-b/2/a
writeln;
readln;

end.
end.

[ROMA2PVT]

Вот подправил:

program sqr;
uses crt;
var
a,b,c,d,x,x1,x2:real;
begin
clrscr;
writeln('Vvedite Koefficienti yravneniya');
readln(a,b,c);
D:=b*b-4*a*c;
writeln('diskriminant:=',d:1:3);
if D<0 then writeln('korneu net');
if d>0 then
begin
writeln('Korni yravneniya');
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1:=',x1:5:1);
writeln('x2:=',x2:5:1);
end;
if d=0 then
begin
x:=-b/(2*a);
writeln('x:=',x:5:1);
end;
writeln;
readln;
end.

[fenix-elite]

writeln('diskriminant:=',d:3:0);
D:=b*b-4*a*c;

А что он должен писать? Переменная не инициализирована, и хорошо, что он пишет 0 Как минимум нужно поменять местами 2 строчки эти.

if D<0 then writeln('korneu net');
if D>0 then
begin
writeln('Korni yravneniya');
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
writeln('x1:=',x1:5:1);
writeln('x2:=',x2:5:1);
end;
if d:=0 then 
begin
x:=-b/2/a
writeln('x=',x);
end;
writeln;
readln;