Рандомное заполнение файла - Pascal ABC

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

Добрый день! Помогите, пожалуйста. Есть набор знаков: (j, e, m, o, ž, n, é, s, a, č, k, r, d, i, t, l, b, u, ú, c, ď, p, ľ, z, ý, š, á, ô, ť, h, ä, í, y, g, x, ó, ň, f, w, ŕ). Нужно заполнить текстовый файл этими символами рандомно. Число знаков в файле должно быть 10000-11000

Решение задачи: «Рандомное заполнение файла»

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

const
    CHARS: Array[0..39] Of String[2] = ('j', 'e', 'm', 'o', 'Еѕ', 'n', 'Г©', 's', 'a', 'ДЌ', 'k', 'r', 'd', 'i', 't', 'l', 'b', 'u', 'Гє', 'c', 'ДЏ', 'p', 'Дѕ', 'z', 'ГЅ', 'ЕЎ', 'ГЎ', 'Гґ', 'ЕҐ', 'h', 'Г¤', 'Г*', 'y', 'g', 'x', 'Гі', 'Е€', 'f', 'w', 'Е•');
    //CHARS: Array[0..39] Of Char= ('j', 'e', 'm', 'o', 'Еѕ', 'n', 'Г©', 's', 'a', 'ДЌ', 'k', 'r', 'd', 'i', 't', 'l', 'b', 'u', 'Гє', 'c', 'ДЏ', 'p', 'Дѕ', 'z', 'ГЅ', 'ЕЎ', 'ГЎ', 'Гґ', 'ЕҐ', 'h', 'Г¤', 'Г*', 'y', 'g', 'x', 'Гі', 'Е€', 'f', 'w', 'Е•');
 
var
    f: Text;
    i: Word;
begin
    Assign(f, 'f.txt'); ReWrite(f);
    Randomize;
    for i := 1 to 10000 do
        Write(f, CHARS[Random(Length(CHARS))]);
    Close(f);
end.

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

В начале кода объявляются две переменные: f и i. Переменная f типа Text, а переменная i - Word.
Затем происходит присвоение значения переменной f: она становится ссылкой на файл 'f.txt'.
После этого происходит операция ReWrite(f), которая записывает содержимое файла, тем самым очищая его.
Далее в цикле for происходит случайное выбор символа из массива CHARS с помощью функции Random(Length(CHARS)). Это повторяется 10000 раз.
Каждый выбранный символ записывается в файл 'f.txt' с помощью функции Write(f, CHARS[Random(Length(CHARS))]).
После окончания цикла for файл 'f.txt' закрывается с помощью функции Close(f).