Сохранить элементы матрицы вещественных чисел в текстовом файле - Pascal

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

Сохранить элементы матрицы вещественных чисел в текстовом файле с такой структурой: • первая строка файла содержит два числа n и m, разделенных пробелом - соответственно количество строк и количество элементов в строке; • следующие и строк содержат по m вещественных чисел, разделенных пробелом - элементы строки матрицы.

Решение задачи: «Сохранить элементы матрицы вещественных чисел в текстовом файле»

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

Const nmax=20;
Var A:array[1..nmax,1..nmax] of real;
    i,j,n,m:byte;
    f:text;
Begin
    Repeat
     write('Количество строк 1<=N<=',nmax,': ');readln(n);
    Until n in [1..nmax];
    Repeat
     write('Количество столбцов 1<=M<=',nmax,': ');readln(m);
    Until m in [1..nmax];
    Assign(f,'in.txt');Rewrite(f);
    writeln(f,n,' ',m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random*10-5;
        write(A[i,j]:6:2);
        write(f,A[i,j]:0:2,' ');
      End;
      writeln;
      writeln(f);
    End;
    Close(f);
    readln;
End.

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

Объявляются константа nmax (максимальное количество строк и столбцов матрицы) и переменная A (матрица вещественных чисел).
Задаются три переменные: i, j и n (используются для прохода по строкам и столбцам матрицы).
Задается переменная f (текстовый файл, в который будет записан матричный код).
В цикле повторяется запрос количества строк и столбцов матрицы (до nmax и mmax соответственно).
Задается массив A (создается для хранения матрицы).
Записывается размерность матрицы в файл.
Запускается цикл по строкам матрицы.
В каждой итерации цикла запускается вложенный цикл по столбцам матрицы.
Внутри вложенного цикла присваиваются случайные значения элементам матрицы A[i,j].
Выводится значение элемента матрицы A[i,j].
Записывается значение элемента матрицы в файл.
Выводится символ новой строки.
Закрывается файл.
Считывается команда до конца строки.