Задание по программированию 8 класс.Pascal. По холсту перемещаются два шарика разного цвета и разного радиуса,один

uses
graphabc; // подключаем графику.
var
x, y : integer; // объявляем переменные целочисленного типа.
label l; // объявляем метку.
begin
setpenwidth(5); // устанавливаем ширину линии.
l: x :=0; // точка возврата после выхода из цикла.
repeat // начало цикла.
clearwindow; // очищаем окно.
setpencolor(clRed); // устанавливаем цвет линии.
Circle(20+2*x,30,20); // рисуем круг.
setpencolor(clGreen); // устанавливаем цвет линии.
Circle(580,130+x,50); // рисуем круг.
sleep(100); // делаем паузу 100 мсек.
x := x + 10; // увеличиваем щаг для рисования следующего круга.
until x = 300; // условие выхода из цикла.
goto l; // переход на метку.
end.