Графика Опции

[-max-]

Помогите решить:

Дано три целых числа, определяющих положение центра окружности на экране и ее радиус. Если окружность не пересекает горизонтальную прямую, проходящую через середину экрана, то высветить данную окружность и окружность, симметрическую данной относительно этой прямой.

[Бравый генерал]

Uses
 Graph;

Var
 gd,gm,x,y,r,d: Integer;

Begin
 WriteLn('Vvedite x,y,r: ');
 ReadLn(x,y,r);

 gd:=Detect;
 InitGraph(gd, gm, 'c:\tp\bp\bgi');

 line(0, GetMaxY div 2, GetMaxX, GetMaxY div 2);
 Circle(x,y,r);

 d:=y - (GetMaxY div 2);
 if abs(d) >= r
 then Circle(x, (GetMaxY div 2) - d, r);

 ReadLn;
 CloseGraph
end.