Выполнить движение флажка по экрану случайным образом с задержкой в 500 мс - Turbo Pascal

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

Написать программу, которая рисует на экране флажок красного цвета. Выполнить движение флажка по экрану случайным образом с задержкой в 500 мс. сделайте пожалуйста!!!

Решение задачи: «Выполнить движение флажка по экрану случайным образом с задержкой в 500 мс»

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

uses graph;
var x,y,x1,y1:integer;
    p:array[1..6] of pointtype;
begin
randomize;
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2-50;
y:=getmaxY div 2-100;
p[1].x:=x;p[1].y:=y;
p[2].x:=x+150;p[2].y:=y;
p[3].x:=x+120;p[3].y:=y+60;
p[4].x:=x+150;p[4].y:=y+120;
p[5].x:=x;p[5].y:=y+120;
p[6].x:=x;p[6].y:=y;
x1:=x;y1:=y+180;
setcolor(12);
setfillstyle(1,12);
fillpoly(6,p);
setlinestyle(0,0,3);
line(p[5].x+1,p[5].y,x1+1,y1);
readln
end.

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

Подключается библиотека graph.
Объявляются переменные x, y, x1, y1 типа integer.
Создается массив p типа array[1..6] of pointtype.
Вызывается функция randomize для инициализации генератора случайных чисел.
Инициализируется переменная x значением 0.
Вызывается функция initgraph(x, y, '') для инициализации графического окна.
Вычисляется значение x и y по формуле x = getmaxX / 2 - 50 и y = getmaxY / 2 - 100.
Задаются значения координат для точек массива p с помощью операций x = x + 150, y = y + 60, x = x + 150, y = y + 120, x = x, y = y + 120 и x = x, y = y.
Вычисляются координаты x1 и y1 по формуле x1 = x и y1 = y + 180.
Устанавливается стиль заполнения полигона с помощью функции fillpoly(6, p).
Устанавливается стиль линии с помощью функции setlinestyle(0, 0, 3).
Выводится линия с координатами (p[5].x + 1, p[5].y) и (x1 + 1, y1).
Выводится команда readln для чтения ввода до конца строки.