Паскаль. Файлы - Создать подпрограмму для заполнения файла латинскими и русскими буквами

[Антон Лысенко]

Создать подпрограмму для заполнения файла латинскими и русскими буквами.

[Serge_Bliznykov]

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

по сути

  
procedure FillTextFile;
begin
  Assign(f,'fLetter.txt');
  Rewrite(f);
  WriteLn(f, 'abcdefghijklmnopqrstuvwxyz');
  WriteLn(f, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ');
  WriteLn(f, 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя');
  WriteLn(f, 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ');
  Close(f);
end;

[Антон Лысенко]

спасибо!!! надеюсь что всеми. просто как то не корректно стоит задание. А если случайным набором с помощью random. Я думал создать массив из цифр от 65..90 (аналогично для остальных букв) а потом с помощью сhr заносить их в файл. Но опять проблема не сказано сколько их должно быть и т.д. и т.п. То я напишу весь алфавит и не буду мучатся.