Программа, которая выводит буквы введенного слова в случайном порядке - Pascal

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

Здравствуйте, может кто-нибудь подсказать как выполнить эту задачу. Суть в том, что программа считывает введенное слово (не больше 14 букв) и выводит на экран буквы этого слова в случайном порядке (на латинеце), прибавляя к ним ещё рандомные буквы. Итого на экран программа должна вывести 14 символов Например: Ввод: hello Вывод: rteftlulhoalno

Решение задачи: «Программа, которая выводит буквы введенного слова в случайном порядке»

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

var
  s:string[14];
  c:char;
  i,j:byte;
begin
  randomize;
  write('введите слово:');readln(s);
  for i:=length(s)+1 to 14 do s:=s+chr(random(26)+97);
  for i:=1 to 14 do begin
    j:=random(14)+1;
    c:=s[i];
    s[i]:=s[j];
    s[j]:=c;
   end;
   writeln('результат:',s);
   readln
end.

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

Объявление переменных:
- s: строковая переменная длиной до 14 символов
- c: символьная переменная
- i, j: переменные типа byte (целые числа от 0 до 255)
randomize: инициализация генератора случайных чисел.
Запрос ввода слова и сохранение введенного значения в переменной s.
Добавление случайных символов к строке s, чтобы ее длина достигла 14 символов.
Цикл для перемешивания символов:
- i принимает значения от 1 до 14.
- Генерируется случайное число j от 1 до 14.
- Символ c принимает значение символа s[i].
- Символ s[i] заменяется символом s[j], а символ s[j] заменяется символом c.
Вывод результирующей строки s.
Ожидание ввода перед завершением программы. Программа перемешивает символы введенного слова и выводит их в случайном порядке, дополняя при необходимости случайными символами до 14 символов.