Вывести в случайные точки экрана случайным цветом все числа от 1 до сформированного числа - Free Pascal

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

Программа должна случайным образом сформировать натуральное число и (по окончании работы программы должен прозвучать звуковой сигнал): выводить в случайные точки экрана случайным цветом все числа от 1 до сформированного числа; окончание работы программы при нажатии на клавишу «5»

Решение задачи: «Вывести в случайные точки экрана случайным цветом все числа от 1 до сформированного числа»

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

{Программа должна случайным образом сформировать натуральное число и
(по окончании работы программы должен прозвучать звуковой сигнал):
выводить в случайные точки экрана случайным цветом все числа от 1
до сформированного числа; окончание работы программы при нажатии на
клавишу <5>}
uses
  crt;
var
  i,x,y,color,n:integer;
  key:char;
begin
  randomize;
  clrscr;
  n:=random(100)+50;
  for i:=1 to n do
    begin
      x:=random(80)+1;
      y:=random(25)+1;
      color:=random(15);
      gotoxy(x,y);
      textcolor(color);
      write(i);
    end;
  while not keypressed do
    begin
      key:=readkey;
      if key='5' then
        begin
          write(#7);
          exit
        end;
    end;
end.

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

Программа использует модуль CRT для работы с консолью.
В программе объявлены следующие переменные:
- i, x, y, color, n: целочисленные переменные для хранения количества и координат точек, цвета и сформированного числа соответственно.
- key: переменная типа char для хранения нажатой клавиши.
С помощью функции randomize() инициализируется генератор случайных чисел.
С помощью функции clrscr() очищается экран.
С помощью функции random(100)+50() формируется случайное натуральное число от 50 до 150.
С помощью цикла for выводятся числа от 1 до сформированного числа в случайные точки экрана случайным цветом.
С помощью цикла while проверяется нажатие клавиши <5>. Если клавиша нажата, то программа завершается и выводится звуковой сигнал.