Подскажите что неправильно? - PascalABC.NET

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

Подскажите где ошибка в этом коде? Чтобы получилось такое окошко.

Решение задачи: «Подскажите что неправильно?»

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

uses
  crt;
 
begin
  TextBackground(0);
  ClrScr;
  for var i := 0 to 15 do
  begin
    TextBackground(i);
    for var j := 1 to 80 do
      write(' ');
  end;
end.

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

В этом коде используется язык программирования PascalABC.Net. Целью кода является изменение цвета фона от 0 до 15 и вывод 80 пробелов для каждой итерации цикла. Вот список действий, которые выполняются в коде:

Используется модуль CRT (клавиатура и экран).
Очищается экран.
Запускается цикл от 0 до 15.
Для каждой итерации цикла меняется цвет фона.
Запускается внутренний цикл от 1 до 80.
Для каждой итерации внутреннего цикла выводится пробел.
Код завершается.