Решите биквадратное уравнение ах4 + bх2 + с = 0 Паскаль

//PascalABC.NET 3.1 сборка 1200
var
    a, b, c, d, x: real;
    x2: array[1..2]of real;
    i: integer;

begin
    readln(a, b, c);
    d := b * b - 4 * a * c;
    if d         writeln(Сложные комплексные корни);
        halt;
    end;
    
    d := sqrt(d);
    x2[1] := (-b + d) / 2 / a;
    x2[2] := (-b - d) / 2 / a;
    
    for i := 1 to 2 do
    begin
        x := sqrt(abs(x2[i]));
        if x2[i] >= 0 then
            writeln(x[, 2 * i - 1, ] = , x, x[, 2 * i, ] = , -x)
        else
            writeln(x[, 2 * i - 1, ] = , x, i x[, 2 * i, ] = , -x, i);
    end;
end.