Помогите с задачей на графику!

[Fatality]

Ребята, выручайте! Мне к завтрашнему дню нужно сделать одну лабу... Я до графики еще не дошел, поэтому не понимаю практически ничего, кроме как инициализировать модуль... Прошу, кому не трудно, помогите!
-У левой границы экрана появляется красный круг. По нажатию enter круг начинает перемещение по экрану в горизонтальном направлении. При этом скорость полета увеличивается при нажатии ">", и уменьшается при "<". Дойдя до противоположной границы круг продолжает движение в противоположном направлении. Движение останавливается по нажатию "S". Выход-Esc.

[HoLToFF]

Напишите хотя бы для честности сюда инициализацию графики

[Fatality]

Пожалуйста)
InitGraph(D,M,S)
Closegraph.
Вот все мои знания о графике((((

[HoLToFF]

program BallMove;

uses CRT, Graph;

var x,d,
    speed:integer;
    st:Boolean;

procedure init;
var d, m: integer;
begin
    d := detect;
    InitGraph(d,m,'');
    if GraphResult<>grOK then
    begin
	WriteLn('Graphics error: ', GraphErrorMsg(GraphResult));
	ReadLn;
	Halt(1);
    end;
ClearDevice;
end;


procedure Ball(x:integer);
begin
SetColor(Red);
SetFillStyle(1,Red);
FillEllipse(x,445,30,30);
end;


begin
init;
x:=35;
d:=1;
Ball(35);
readln;
st:=false;
Speed:=1500;

repeat
if not st then
begin
delay(Speed);
ClearDevice;
ball(x);
x:=x+d;
end;

if keypressed then
begin
case ord(readkey) of
27 : exit;
44 : if speed < 3000 then Speed:=Speed + 200;
46 : if speed > 300 then Speed:=Speed - 200;
115: st:=not(st);
end;

end;


if x > 605 then d:=-d;
if x < 35 then d:=-d;
until false;

readln

end.

[Fatality]

HoLToFF, спасибо ОГРОМНОЕ! Ты меня просто спас!!!