Снеговик - Pascal ABC

Формулировка задачи:

Знаю что тем полно, но пожалуйста, нужно сделать снеговика, просто три круга в соответствующих размерах и чтобы он двигался слева направо, так же нужен фон голубой

Решение задачи: «Снеговик»

Листинг программы

uses graphABC;
procedure snegovik(x,y:integer);
begin
setpencolor(clWhite);
setbrushcolor(clWhite);
circle(x,y,20);
circle(x,y+50,30);
circle(x,y+120,40);
end;
var x,y:integer;
begin
clearwindow(clSkyBlue);
x:=40;
y:=windowheight-200;
lockdrawing;
repeat
clearwindow(clSkyBlue);
snegovik(x,y);
sleep(50);
x:=x+5;
redraw;
until x+40>=windowwidth;
end.

Объяснение кода листинга программы

Объявлены две переменные x и y типа integer.
Установлен цвет кисти и пера на белый.
Нарисован круг с координатами (x,y) радиусом 20.
Нарисован круг с координатами (x,y+50) радиусом 30.
Нарисован круг с координатами (x,y+120) радиусом 40.
Очищено окно графического интерфейса на цвет неба.
Задано начальное значение переменной x равное 40, а переменной y равное высоте окна минус 200.
Начальный размер снеговика (первый круг) рисуется на экране.
Далее с задержкой в 50 миллисекунд размер снеговика увеличивается (второй и третий круги) и рисуется на экране.
Цикл повторяет шаги 6-9 до тех пор, пока правая граница снеговика не достигнет или не превысит левую границу окна.
После окончания цикла программа завершается.