Имитировать восход солнца на Pascal

[Мент]

Ребата, пожалуйста помогите решить задачку
ЛЮди очень надо помоги кто чем может!

Задача. Графика.

Имитировать восход солнца.

[Mef]

Program Mef_4;
uses CRT, Graph;
var
x,y:real;
a,b:integer;
begin
a:=detect;
InitGraph(a,b,'C:\BP\BGI');
repeat
x:=x+0.001;
y:=cos(sqrt(x))+0.5;
SetColor(14);
Circle(round(x*100),Round(y*100),20);
SetFillStyle(1,14);
FloodFill(round(x*100),Round(y*100),14);
ClearDevice;;
until KeyPressed;
closeGraph;
end.

[Jony18]

А можете пожалуста перевести на язик Delphi! Очень прошу