проблема с if в pascal

я запутался в конец

var a,b,c:integer;d,x1,x2:real;
begin
writeln (' введите коэффициенты квадратнаго уравнения a,b,c');
readln(a,b,c);
if a=0 then

writeln ('уравнение не квадратное ') ;
d:=b*b-4*a*c;

if d>0 then

x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1);
writeln('x2=',x2);

else
begin
if d=0 then
x1:=(-b)/(2*a);
writeln('x1=',x1);
end
else
begin
writeln ('нет корней');
end;
end.

Program1.pas(17) : Встречено 'else', а ожидался оператор