Выведите ряд квадратов, заштрихованных всеми типами штриховки по порядку - PascalABC.NET

Выведите ряд квадратов, заштрихованных всеми типами штриховки по порядку: Скриншот во вложении

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

s:array[1..12] of HatchStyle=();

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

Создается массив типа HatchStyle с именем hatch и размером 12.
Инициализируется 12 элементами, каждый из которых является пустой штриховкой.
Запускается цикл от 1 до 12.
В каждой итерации цикла, элемент массива hatch заполняется соответствующим типом штриховки.
Выводится на экран элемент массива hatch с текущим индексом.
После завершения цикла, выводится символ |.
Цикл повторяется до тех пор, пока не будет достигнут последний элемент массива hatch.