В результате вывести на экран случайные 10-буквенные слова из русских букв - Pascal ABC

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

Добрый день! Помогите пожалуйста. В составленной программе выводится только одно случайное слово. Как сделать так чтобы их выводилось больше, к примеру 5?

uses crt;
var s: string;
    i: integer;
begin
  randomize;
  s:= ' ';
  for i := 1 to 10 do
    begin
      s := s + char(ord('а') + random(ord('я') - ord('а') + 1));
      write(s[i])
    end;
  readln
end.

Решение задачи: «В результате вывести на экран случайные 10-буквенные слова из русских букв»

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

uses crt;
var s: string;
    i,j: integer;
    fl:text;
begin
randomize;
assign(fl, 'slova.txt');
rewrite(fl);
for i:=1 to 5 do
 begin
  s:= ' ';
  for j := 1 to 10 do
    begin
      s := s + char(ord('а') + random(ord('я') - ord('а') + 1));
      write(s[j])
    end;
   writeln;
   writeln(fl,s);
 end;
close(fl);
end.

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

В этом коде используется язык программирования Pascal ABC. Вот список действий, которые выполняет код:

Используется модуль CRT (такой модуль может использоваться для работы с консолью ввода-вывода).
Объявляются переменные: строка S, целочисленные переменные I и J, текстовый файл FL.
Файл FL открывается на запись с помощью функции Assign.
Файл FL перезаписывается с помощью функции Rewrite.
В цикле от 1 до 5 выполняются следующие действия: а) Строка S инициализируется пустой строкой. б) В цикле от 1 до 10 выполняются следующие действия:
- К строке S добавляется случайная буква от 'а' до 'я' (включительно).
- Выводится символ строки S, соответствующий индексу J. в) Выводится новая строка. г) Выполняется запись строки S в файл FL.
Файл FL закрывается на запись с помощью функции Close. Код выводит на экран случайные 10-буквенные слова из русских букв.