Вывести все значения аргументов x и a, при которых значения функции равно c - Pascal ABC

const
    EPS = 0.0001;
function F(x, a: Real): Real;
begin
    F := Sqr(x - a) / pi; //меняем функцию на свой вкус. при этом не забываем про область определения и значения.
end;
 
var
    x, xb, dx, a, aa, ab, da, c: Real;
begin
    Write('c='); ReadLn(c);
    Write('x_left='); ReadLn(x);
    repeat
        Write('x_right='); ReadLn(xb);
    until (xb > x);
    Write('dx='); ReadLn(dx);
    Write('a_left='); ReadLn(a);
    repeat
        Write('a_right='); ReadLn(ab);
    until (ab > a);
    Write('da='); ReadLn(da);
    while ((Abs(x - xb) < EPS) Or (x < xb)) do
    begin
        aa := a;
        repeat
            if (Abs(f(x, aa) - c) < EPS)
            then
                WriteLn('F(', x:0:2, ',', aa:0:2, ')=', c:0:3);
            aa := aa + da;
        until (aa > ab);
        x := x + dx;
    end;
end.