Написать программу, которая создает типизированный файл и записывает в него MxN значений - Pascal ABC

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

Написать программу, которая создает типизированный файл и записывает в него MxN значений. Имя для файла создает- ся по маске <login2>.dan. M-14 N-12 Type-Char

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

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

const
    N = 12;
    M = 14;
var
    f: File Of Char;
    i: Byte;
    fName: String;
begin
    Write('Input filename: '); ReadLn(fName);
    Assign(f, fName); ReWrite(f);
    for i := 1 to M * N do
        Write(f, Chr(Random(255)));
    Close(f);
end.

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

В начале объявляются две константы N и M, которые задают количество строк и столбцов в создаваемом файле соответственно.
Затем объявляется переменная f типа File Of Char, которая будет использоваться для записи данных в файл.
Далее объявляется переменная i типа Byte, которая будет использоваться для итерации по строкам и столбцам.
После этого объявляется переменная fName типа String, в которую будет записываться имя файла, введенное пользователем.
Затем происходит чтение имени файла из ввода пользователя с помощью функции ReadLn.
Используя функцию Assign, имя файла присваивается переменной f.
Функцией ReWrite вызывается метод записи в файл для перезаписи содержимого файла.
Затем идет цикл for, который выполняется M * N раз (где M - количество строк, N - количество столбцов).
Внутри цикла вызывается функция Write, которая записывает в файл символ, выбранный случайным образом с помощью функции Random.
После завершения цикла файл закрывается с помощью функции Close.