Вывести числа разными цветами - PascalABC.NET

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

Написать программу для заполнения массива случайными числами в диапазоне (-10; 10) и вывода его на экран. Положительные числа выводить зеленым цветом, отрицательные - красным, ноль - белым. Цвет фона - Синий

Решение задачи: «Вывести числа разными цветами»

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

uses crt;
var a:array[1..20] of integer;
    i:integer;
begin
textbackground(blue);
clrscr;
randomize;
for i:=1 to 20 do
 begin
  a[i]:=-10+random(21);
  if a[i]>0 then textcolor(green)
  else if a[i]<0 then textcolor(red)
  else textcolor(white);
  write(a[i]:3);
 end;
writeln;
textcolor(white); 
end.

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

Объявлены переменные: a (массив целых чисел), i (целое число).
Задана функция randomize, которая инициализирует генератор случайных чисел.
Задана функция textbackground, которая устанавливает цвет фона.
Задана функция clrscr, которая очищает экран.
Задана функция textcolor, которая устанавливает цвет текста.
Задана функция write, которая выводит текст на экран.
Задана функция writeln, которая выводит строку на экран.
Цикл for от 1 до 20 итерирует по элементам массива a.
В каждой итерации цикла, в элемент массива a записывается случайное число от -10 до 10.
С помощью условных операторов проверяется значение элемента массива a и устанавливается соответствующий цвет текста.
Значение элемента массива a выводится на экран.
После завершения цикла, устанавливается белый цвет текста.
Выводится символ новой строки (writeln).