Программа на Pascal по изменению величины круга

uses graphABC; //Подключать ГрафАБэЦэ
var f:boolean;//переменная для выхода из программы 
    r:integer;//радиус круга
procedure KeyDown(Key:integer); //Процедура КейДавн( принимает Кей : целое число )
begin
case Key of
VK_Up:r:=r+5; Если вверх, то r += 5
VK_Down:r:=r-5; если вниз, то r -= 5
VK_Escape:f:=false; если esc, то f:= false
end;
end;
var xc,yc,x,y,r1:integer; //Какие-то нужные переменные
    u:real; //Тоже нужна
begin
xc:=Window.Width div 2; //Икс выбираем по центру высоты экрана
yc:=Window.Height div 2; //Игрик выбираем по центру ширины экрана
r:=20; //Радиусу присвоить 20?
r1:=110;//радиус вращения круга
f:=true; //Этой самой f присвоить Истину
Pen.Color:=clred; //Цвет карандаша - красный
Brush.Color:=clRed; //Цвет кисти - красный
lockdrawing; //блокируем отрисовку в графическом окне
u:=0; //Какой-то переменной присвоим 0; позже узнаем, для чего она
repeat //типо начало тела цикла repeat/until
clearwindow; //Чистим окошко
Brush.Style:=bsClear; //Ну, brush clear - прозрачная кисть
TextOut(100,10,'Стрелка вверх увеличить радиус, стрелка вниз-уменьшить, Esc-выход'); //Выводим текст по координатам...
Brush.Style:=bsHatch; //Типо сплошная кисть
x:=xc+round(r1*cos(u)); //Рассчитаем икс
y:=yc-round(r1*sin(u)); //И игрик
if(x>xc)and(y<yc)then Brush.Hatch:=bhCross //Стиль штриховки кисти - в клеточку если условие = true
else if(x<=xc)and(y<yc)then Brush.Hatch:=bhBackwardDiagonal //Если условие = true , то штриховка - наклонные назад  линии
else if(x<=xc)and(y>=yc)then Brush.Hatch:=bhForwardDiagonal //Если условие = true, то штриховка - наклонные вперед линии
else Brush.Hatch:=bhPercent40; //Иначе какие-то точки в определенном порядке в качестве штриховки
Circle(x,y,r); //И рисуем окружность полученной кистью Brush с заданной штриховкой, цветом и стилем...
sleep(50); //Ждем 50 секунд.
u:=u+0.05; //Увеличиваем эту переменную
redraw; //Выводим результат на экран (отрисовываем/перерисовываем)
OnKeyDown:=KeyDown; //Процедуру подключаем к ивенту нажатия мыши
until f=false; //Ну, если f = false, выходим из цикла
CloseWindow; //Закрываем окно
end.