Как зациклить рисунок? Графика PascalABC

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

Может я из ума выжила, ну никак не лезет в голову, как продолжить этот рисунок, чтобы получился узор, repeat-ом пробовала не получается.

program uzor;
uses graphabc, crt;
begin
clrscr;
setwindowsize(1024,100);
setwindowcaption('Узор');
clearwindow(clgreen);
setpenwidth(5);
line(0,100,80,0); lineto(160,100);
lineto(0,100); lineto(90,20);sleep(100);
FloodFill(80,5,clblack);
FloodFill(80,90,clrandom);
end.

Решение задачи: «Как зациклить рисунок? Графика PascalABC»

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

program uzor;
uses graphabc, crt;
var x,y : integer;
begin
clrscr;
setwindowsize(1024,100);
setwindowcaption('Узор');
clearwindow(clgreen);
setpenwidth(5);
x:=0; y:=0;
repeat
  line(x,y+100,x+80,y); lineto(x+160,y+100);
  lineto(x,y+100); lineto(x+90,y+20);sleep(100);
  FloodFill(x+80,y+5,clblack);
  FloodFill(x+80,y+90,clrandom);
  x:=x+160;
until x>=840
end.

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

Создаётся программа uzor с использованием библиотек graphabc и crt.
Устанавливается размер окна системы в 1024x100 пикселей.
Устанавливается название окна системы.
Очищается окно с помощью функции clearwindow.
Устанавливается ширина пера в 5 пикселей.
Инициализируются переменные x и y целочисленными значениями.
Запускается цикл повторения, который будет выполняться до тех пор, пока значение переменной x больше или равно 840.
Внутри цикла выполняется следующая последовательность действий:
- Вычисляются координаты линий с помощью функций line и lineto.
- Выполняется операция sleep для задержки выполнения программы на 100 миллисекунд.
- Выполняется функция FloodFill, которая заполняет прямоугольник на экране цветом clblack.
- Выполняется функция FloodFill, которая заполняет прямоугольник на экране случайным цветом.
- Значение переменной x увеличивается на 160 пикселей.
После завершения цикла, программа завершается.