помогите мне решить задачу в лазарусе

program N183832617;
var
  x0, y0, r0,
  x1, x2: double;

{$R *.res}

begin
  writeln('Введите координаты центра окружности: ');
  write('X0 = ');
  readln(x0);
  write('Y0 = ');
  readln(y0);
  write('Введите радиус окружности: '#13#10'R = ');
  readln(r0);
  if r0 < abs(y0) then
    writeln('Окружность не пересекает ось абсцисс')
  else
    if abs(r0 - abs(y0)) < 1e-15 then
      writeln('Одна точка пересечения (',x0:0:3,';0.000)')
    else
    begin
      x1 := x0 - sqrt(sqr(r0) - sqr(y0));
      x2 := x0 + sqrt(sqr(r0) - sqr(y0));
      writeln('Две точки пересечения: ');
      writeln('(',x1:0:3,';0.000)');
      writeln('(',x2:0:3,';0.000)')
    end;
  write(#13#10'Для завершения работы нажмите <Enter>...');
  readln
end.

18. Эти параболы могут иметь более 1 точки пересечения (вплоть до бесконечности). Искать все?

19. Аналогично 18 при a=k=0. Почему кубическая парабола обозвана линией? При a<>0 k<>0 точка пересечения существует всегда (1, 2, 3 или бесконечность), но решение полных кубических уравнений - это не то, что кто-то будет делать вместо тебя, я гарантирую это.

При чём тут вообще лазарус? Сначала реши задачу чисто геометрически, получится довольно простая формула (квадратное уравнение). Дальше можно записать эти несколько строк в любой среде программирования, хотя бы и в лазарусе.
Что именно вызывает проблему? Решена ли сама геометрическая задача?