Просмотреть код решения уравнений и указать на недостатки в программе

Program SquareX2;
 
uses graphabc;
 
var a, b, c, d, sqrtd, x1, x2: real;
 
procedure lines(i:integer);
var r: integer;
begin
for r:=1 to i do begin
writeln;
end;
end;
 
Begin
 
setwindowtitle('Square X 2.0');
loadwindow('photo.jpg');
readln;
clearwindow;
writeln('Square X 2.0');
writeln('By IMC');
readln;
clearwindow;
lines(31);
writeln('Квадратное уравнение — уравнение вида ax2 + bx + c = 0, где a, b, c — некоторые числа (a ≠ 0), x — неизвестное. При вводе чисел a, b, c программа решает и высвечивает решение данного уровнения. При а=0 программа также решает линейные уравнения.');
writeln('Нажмите "Enter"');
readln;
clearwindow;
lines(29);
 
while true do begin
clearwindow;
writeln('Введите числа a, b, c через "Enter"');
readln(a); writeln('a=', a);
readln(b); writeln('b=', b);
readln(c); writeln('c=', c);
lines(29);
readln;
clearwindow;
 
If a=0 then begin
if c=0 then begin
if b=0 then begin
writeln('0x=0');
writeln('x - безконечность');
lines(31);
end else begin
writeln(b,'x=0');
writeln('x=0');
lines(31);
end;
end else begin
if b=0then begin 
if c<>0 then begin
writeln(c,'=0');
writeln('Уравнения не существует');
lines(31);
end;
end;
end;
if b<>0 then begin
if c<>0 then begin
writeln(b,'x+',c,'=0');
writeln('x=',-c/b);
lines(31);
end;
end;
 
end;
if b = 0 then begin;
writeln('x2=',-c,'/',a);
writeln('x2=',-c/a);
if -c/a < 0 then begin
writeln('Уравнения не существует');
lines(30);
end else begin
if c=0 then begin
writeln('x=0');
end else begin
writeln('x1=+√',-c/a);
writeln('x2=-√',-c/a);
writeln('x1=',sqrt(-c/a));
writeln('x2=',-sqrt(-c/a));
lines(30);
end;
end;
end;
 
if c=0 then begin
writeln(a,'x2+',b,'x=0');
writeln('x(',a,'x+',b,')=0');
writeln('x1=0');
writeln('x2=',-b,'/',a);
writeln('x2=',-b/a);
lines(28);
end;
 
if a+b+c=0 then begin
writeln('f(1)=0');
writeln('x1=1');
writeln('x2=',c/a);
lines(30);
end;
 
if a+c=b then begin
writeln('f(-1)=0');
writeln('x1=-1');
writeln('x2=',-c/a);
lines(30);
end;
 
if a<>0 then begin
if b<>0 then begin
if c<>0 then begin
if a+b+c<>0 then begin
if a+c<>b then begin
 
d := sqr(b) - 4 * a * c;
writeln('D=b2-4ac=', b, '*', b, '-4*', a, '*', c, '=', d);
if d < 0 then begin
writeln('D<0→нет решения');
lines(31);
end else begin;
sqrtd := sqrt(d);
writeln('√D=', sqrtd);
x1 := (-b + sqrtd) / 2 / a;
x2 := (-b - sqrtd) / 2 / a;
if x1 = x2 then begin
writeln('X=-b/2a=', -b, '/2', a, '=', x1);
lines(31);
end else begin
writeln('X1=(', -b, '+', sqrtd, ')/2*', a, '=', x1);
writeln('X2=(', -b, '-', sqrtd, ')/2*', a, '=', x2);
lines(30);
 
end;
end;
end;
end;
end;
 
end;
end;
 
 
readln;
end;
end.