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

program SquareX110;
 
uses
  crt;
 
var
  a, b, c: real;
 
var
  d, sqrtd, x1, x2: real;
 
begin
  textbackground(15);
  clrscr;
  textcolor(1);
  
  writeln('Вас приветствует программа SquareX1.10');
  writeln('Эта программа поможет Вам решать квадратные и линейные уровнения. Все, что вам  нужно - это ввести числа a, b, c из уровнения вида aX2+bX+c=0 и получить готовыйрезультат. В програму встроен показ решения через дескриминант, а также более   простая программа LineX, позволяющая решать линейные уровнения. Для решения     последних, просто введите а=0.');
  writeln('Преимущество програм IMC - сравнительно небольшой вес: эта программа занимает   всего 25,5 КБ, а по функциональности она не хуже остальных.');
  writeln('By IMC');
  readln;
  
  while true do 
  begin;
    textbackground(15);
    clrscr;
    textcolor(1);
    
    
    writeln('Введите коефициенты a и b и свободный член c');
    readln(a, b, c);
    clrscr;
    writeln('Выполняеться вычесление...');
    delay(500);
    clrscr;
    
    if a = 0 then begin;
      if c = 0 then begin;
        if b = 0 then begin;
          textbackground(14);
          clrscr;
          writeln('X - безконечность'); 
        end else begin;
          textbackground(10);
          clrscr;
          writeln('X=0');
        end;
      end else begin
        if b = 0 then begin
          textbackground(4);
          clrscr;
          textcolor(14);
          writeln('нет решения')
        end else begin;
          x1 := -c / b;
          textbackground(10);
          clrscr;
          writeln('X=-c/b=', -c, '/', b, '=', x1);
        end;
      end;
      
    end else begin;
      if b = 0 then begin;
        if c < 0 then begin
          textbackground(4);
          clrscr;
          textcolor(14);
          writeln('нет решения')
        end else begin;
          textbackground(10);
          clrscr;
          x1 := -sqrt(c);
          writeln('X1=+√c=', x1);
          writeln('X2=-√c=', -x1)
        end;
      end else begin;
        d := sqr(b) - 4 * a * c;
        if d < 0 then begin
       
          textbackground(4);
          clrscr;
          textcolor(14);
          writeln('D=b2-4ac=', b, '*', b, '-4*', a, '*', c, '=', d);
          writeln('D<0→нет решения');
        end else begin;
          textbackground(10);
          clrscr;
          sqrtd := sqrt(d);
         writeln('D=b2-4ac=', b, '*', b, '-4*', a, '*', c, '=', d);
          writeln('√D=', sqrtd);
          x1 := (-b + sqrtd) / 2 / a;
          x2 := (-b - sqrtd) / 2 / a;
          if x1 = x2 then writeln('X=-b/2a=', -b, '/2', a, '=', x1) else begin
            writeln('X1=(', -b, '+', sqrtd, ')/2*', a, '=', x1);
            writeln('X2=(', -b, '-', sqrtd, ')/2*', a, '=', x2);
          end;
        end;
      end;
    end;
    writeln('Нажмите "Enter", чтобы продолжить');
    readln;
    clrscr;
    
    
    
  end;
end.