Считывание таблицы чисел из файла в двумерный массив - Pascal

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

Написать программу, считывающую таблицу чисел из файла в двумерный массив.

Решение задачи: «Считывание таблицы чисел из файла в двумерный массив»

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

var f:text;
    a:array[1..20,1..20] of integer;
    b,m,n,i,j:integer;
    s:string;
begin
assign(f,'input.txt');
reset(f);
m:=1;
n:=0;
while not eoln(f)do //читаем перыую строку, узнаем число столбцов
 begin
  read(f,b);
  n:=n+1;
 end;
readln(f,s);
while not eof(f) do//читаем и считаем строки (1 уже была)
 begin
  readln(f,s);
  m:=m+1;
 end;
close(f);//закроем файл
writeln('Размер матрицы ',m,'x',n);
reset(f); //откроем
for i:=1 to m do //прочитаем матрицу
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
close(f);
end.

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

Переменная f инициализируется как текстовый файл с именем 'input.txt'.
Переменная a инициализируется как двумерный массив целых чисел размером от 1 до 20 в каждой из двух осей.
Переменные b, m, n, i и j инициализируются как целочисленные значения.
Строка s инициализируется как пустая строка.
В блоке while происходит чтение первой строки из файла. Число строк считывается в переменную n.
В блоке while происходит считывание оставшихся строк из файла. Числа считываются в переменную m.
Файл закрывается вызовом close(f).
Выводится размер матрицы m x n.
Файл снова открывается вызовом reset(f).
В цикле for считывается каждая строка матрицы.
В вложенном цикле for происходит считывание каждого элемента строки матрицы.
Выводится значение каждого элемента матрицы.
Выводится символ новой строки.
Файл закрывается вызовом close(f).