Задание по программированию 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.