Вывести на экран движущиеся прямоугольник и круг

uses graphabC;
var x,y,ky: integer;
//процедура рисования змейки
procedure Snake (xx,yy: integer);
begin
setbrushcolor(clgreen);
rectangle(xx+135,215,xx+200,235);
floodfill(xx+90,120,clsilver);
//пища для змейки
setbrushcolor(clrandom);
circle(xx+500,220,5);
end;
begin
//размер окна
setwindowsize(800,300);
//запрет рисования в гр.окне
lockdrawing;
y:=0;
ky:=-2;
//бесконечный цикл
repeat
x:=-80;
while x<=800 do
    begin
    //очистить экран
    clearwindow(clskyblue);
    //змейка
    Snake (x,y);
    //вычисление следующих координат
    y:=y+ky;
    redraw;
    inc(x,5);
    end;
until false;
end.

 program animation;
uses GraphABC;
var i : integer;
begin
    SetWindowSize(600,200);
    LockDrawing;
    //Движение пищи
        for i:=0 to 110 do
    begin
        SetBrushColor(clRandom);
        Circle (300, i, 5);
        RedRaw;
        ClearWindow(clWhite);
         end;
    //Движение змейки
    for i:=100 to 300 do
    begin
        SetBrushColor(clRandom);
        Circle (300, 110, 5);
        SetBrushColor(clGreen);
        Rectangle (i, 100, i+40, 120);
        RedRaw;
        ClearWindow(clWhite);
    end;
     for i:=300 to 450 do
    begin
        SetBrushColor(clGreen);
        Rectangle (i, 100, i+80, 125);
        RedRaw;
        ClearWindow(clWhite);
    end;
 end.