Строка-формула квадратного уравнения

Pas.0005. Напишите программу, которая по заданным це­ло­чис­лен­ным значениям переменных a, b и c выводит строку-формулу квад­рат­но­го выражения. Например, для a = 1, b = -3, c = 2 ре­зуль­та­том будет x^2-3x+2.

Решение.

program StringOfQuadratic;
const
    DEGREE = 2;
var
    a : array [0..DEGREE] of integer = (2, -3, 1);
    n : integer;
    areEqualTo0AllTheLeftAn : boolean = true;
begin
    writeln(a);
    
    for n := DEGREE downto 0 do
    begin
        if a[n] = 0 then
            continue
        else if a[n] < 0 then
            write('-')
        else if not areEqualTo0AllTheLeftAn then
            write('+');
        
        if (abs(a[n]) <> 1) or (n = 0) then
            write(abs(a[n]));
            
        if n > 0 then
            write('x');
            
        if n > 1 then
            write('^', n);
        
        areEqualTo0AllTheLeftAn := false;
    end;
    
    if areEqualTo0AllTheLeftAn then
        write('0');
end.