Формирование слов из 4 случайных символов - Pascal

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

Напишите программу которая генерирует случайное 4 значное слово.

решить срочно

Решение задачи: «Формирование слов из 4 случайных символов»

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

var s: string;
    i: byte;
begin
  randomize;
  s := '';
  for i := 1 to 4 do
    begin
      s := s + char(ord('a') + random(ord('z') - ord('a') + 1));
      write(s[i])
    end;
  readln
end.

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

Объявление переменной s типа string для хранения сформированного слова.
Объявление переменной i типа byte для использования в цикле.
Вызов функции randomize для инициализации генератора случайных чисел.
Присвоение переменной s пустой строки, чтобы очистить её или обнулить.
Цикл от 1 до 4, который повторяется четыре раза для создания слова из 4 символов.
Добавление к переменной s случайной буквы с помощью функции random, где каждая буква от 'a' до 'z' имеет свой числовой код, выбираемый случайным образом.
Вывод текущего символа на экран.
Ожидание ввода данных пользователя с помощью функции readln.