Как вывести квадратное уравнение с вводимыми a,b,c в паскале?

var a,b,c:integer;

a1,b1,c1:string;

BEGIN

read(a,b,c);

if a=0 then a1:='' else a1:=IntToStr(a)+'x^2 ';

if b=0 then b1:='' else if (b>0) then b1:='+ '+IntToStr(b)+'x ' else b1:='- '+IntToStr(abs(b))+'x ';

if c=0 then c1:='' else if (c>0) then c1:='+ '+IntToStr(c)+' ' else c1:='- '+IntToStr(abs(c))+' ';

if a=1 then a1:='x^2 ';

if a=-1 then a1:='-x^2 ';

if b=1 then b1:='+ x ';

if b=-1 then b1:='- x ';

if (a=0) and (b=0) and (c=0) then

write('0 = 0') else

write(a1,b1,c1,'= 0');

end.