Помогите пожалуйста написать анимацию(программу) на Паскале где человечек бросает баскетбольный мяч в кольцо.

Программа писать в Паскале, поэтому после копирования имеет такой вид.

Исправлено. Теперь программа имеет нормальный вид.

Выдает вот такую ошибку Ожидалось '.' почему?

а нет, все в порядке

Данная программа выполнена для PascalABC.net, немного кривая, но полностью рабочая. uses GraphABC;var i:integer;Procedure Boy(z,w:integer);beginrectangle(z-20,w-30,z+20,w+40);MoveTo(z-20,w-20);LineTo(z-35,w+15);LineTo(z-20,w);LineTo(z-20,w-20);Floodfill(z-25,w,clBrown);MoveTo(z+20,w-20);LineTo(z+35,w+15);LineTo(z+20,w);LineTo(z+20,w-20);Floodfill(z+25,w,clBrown);Floodfill(z,w,clBlue);MoveTo(z-10,w+40);LineTo(z-10,w+70);LineTo(z-3,w+70);LineTo(z-3,w+40);LineTo(z+3,w+40);LineTo(z+3,w+70);LineTo(z+10,w+70);LineTo(z+10,w+40);LineTo(z-10,w+40);Floodfill(z-5,w+65,clBrown);Floodfill(z+5,w+65,clBrown);Circle(z,w-40,20);Floodfill(z,w-40,clBrown);end;Procedure Ball(x,y:integer);begincircle(x,y,15);floodfill(x,y,clRed);end;beginlockdrawing;for i:=1 to 20 do beginboy(100,200);Ball(100+i*5,200-i*5);ellipse(200,115,250,140);RedRaw;ClearWindow(clWhite);end;for i:=1 to 5 do beginboy(100,200);Ball(200+i*5,100+i*5);ellipse(200,115,250,140);RedRaw;ClearWindow(clWhite);end;for i:=1 to 25 do beginboy(100,200);Ball(225,125+i*5);ellipse(200,115,250,140);RedRaw;ClearWindow(clWhite);end;end.