Нужна анимация: бегущий человечек - Pascal ABC

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

Нужна анимация: бегущий человечек (он должен быть закрашенным, достаточно большим, кол-во кадров не менее 5). НА ПАСКАЛЕ срочно)

Решение задачи: «Нужна анимация: бегущий человечек»

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

uses
  GraphABC;
 
var
  x, y: word;
 
begin
  setwindowsize(280, 280);
  centerwindow;
  x := 100;
  y := 70;
  while x < 280 do
  begin
    circle(x, y, 30);
    line(x, y + 30, x - 20, y + 130);
    line(x - 20, y + 130, x + 20, y + 170);
    line(x + 20, y + 170, x - 20, y + 210);
    line(x - 20, y + 130, x - 20, y + 170);
    line(x - 20, y + 170, x - 70, y + 170);
    line(x - 5, y + 50, x - 40, y + 70);
    line(x - 40, y + 70, x - 40, y + 110);
    line(x - 5, y + 50, x, y + 70);
    line(x, y + 70, x + 50, y + 50);
    sleep(100);
    clearwindow(clwhite);
    circle(x + 5, y - 5, 30);
    line(x + 5, y + 25, x - 15, y + 125);
    line(x - 15, y + 125, x + 10, y + 160);
    line(x + 10, y + 160, x + 20, y + 200);
    line(x - 15, y + 125, x - 40, y + 170);
    line(x - 40, y + 170, x - 80, y + 190);
    line(x, y + 50, x - 20, y + 70);
    line(x - 20, y + 70, x + 10, y + 100);
    line(x, y + 50, x + 10, y + 70);
    line(x + 10, y + 70, x + 50, y + 90);
    x := x + 10;
    sleep(100);
    clearwindow(clwhite);
  end;
end.

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

Используется библиотека GraphABC.
Переменные x и y определены как слова (word).
Устанавливается размер окна в 280x280.
Центрируется окно.
Задаются начальные координаты для круга и линии.
Запускается цикл while, который выполняется до тех пор, пока значение переменной x меньше 280.
Внутри цикла выполняются следующие действия:
- Рисуется круг с радиусом 30.
- Рисуется линия от точки (x, y) до точек (x-20, y+130), (x-20, y+170), (x-70, y+170), (x-5, y+50), (x-40, y+70), (x-40, y+110), (x, y+70), (x+50, y+50), (x+10, y+100), (x+10, y+70), (x+50, y+90).
- Очищается окно.
- Задаются новые координаты для круга и линии.
В конце программы значение переменной x увеличивается на 10.
Запускается новый цикл while.