Необходимо составить таблицу случайных чисел от 1 до 100. При этом числа должны быть 9 разных цветов(1-9) - Turbo Pascal

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

В таблице случайных чисел каждое число от 1 до 9 должно быть разного цвета. Имеется

var
matrix: array [1..100,1..100] of integer;
i, j, n, m, buf: integer;
begin
write('Vvedite kolichestvo strok n: ');
readln(n);
write('Vvedite kolichestvo stolbstov m: ');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
begin
buf:= 1+ random(99);
if buf mod 1 > 0 then matrix[i,j]:= buf
else matrix[i,j]:= buf + 1;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(matrix[i,j]:5);
writeln;
end;
readln;
end.

Решение задачи: «Необходимо составить таблицу случайных чисел от 1 до 100. При этом числа должны быть 9 разных цветов(1-9)»

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

uses crt;
var matrix: array [1..25,1..25] of integer;
    i, j, n, m: integer;
begin
clrscr;
write('Vvedite kolichestvo strok n: ');
readln(n);
write('Vvedite kolichestvo stolbstov m: ');
readln(m);
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    matrix[i,j]:=1+random(99);
    if matrix[i,j] in [1..9] then textcolor(matrix[i,j])
    else textcolor(15);
    write(matrix[i,j]:3);
   end;
  writeln;
 end;
readln;
end.

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

В начале кода используется библиотека crt, которая обеспечивает работу с консолью.
Переменная matrix объявляется как массив целых чисел размером 25x25.
Переменные i, j и n инициализируются значением 1.
Переменная m инициализируется значением 10.
Функция randomize вызывается для инициализации генератора случайных чисел.
В цикле for i:=1 до n do происходит заполнение массива matrix случайными числами от 1 до 99.
Внутри цикла for j:=1 до m do происходит заполнение ячеек массива matrix числами от 1 до 9.
Если число, которое должно быть записано в ячейку массива, является одним из чисел от 1 до 9, то с помощью функции textcolor(15) устанавливается цвет текста этой ячейки белым.
Иначе, если число не является одним из чисел от 1 до 9, то с помощью функции textcolor(15) устанавливается цвет текста этой ячейки красным.
Число записывается в ячейку массива с помощью функции write(matrix[i,j]:3).
После окончания каждой итерации внутреннего цикла for j:=1 до m do происходит вызов функции writeln для перехода на новую строку.
После окончания внешней цикла for i:=1 до n do происходит вызов функции readln для чтения новой строки.
Конец программы.