Как организовать посимвольное считывание данных из файла (TurboPascal)? - Turbo Pascal

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

Надо считать файл посимвольно и занести в двумерный массив (матрицу).

Решение задачи: «Как организовать посимвольное считывание данных из файла (TurboPascal)?»

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

s:='';
i:=1;
j:=1;
While not eof(f1) do
begin
  read(f1,c);
  while c<>' ' do
   begin
    if c<>'.' then
    s:=s+c;
    else begin m[i,j]:=s;
    i:=i+1;
    j:=1;
    end;
    read(f1,c);
   end;
   m[i,j]:=s;
  s:='';
  j:=j+1;
end.

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

Создается переменная s, которая инициализируется пустой строкой.
Создается переменная i, которая инициализируется единицей.
Создается переменная j, которая инициализируется единицей.
Запускается цикл While, который будет выполняться до тех пор, пока не будет достигнут конец файла (EOF).
В каждой итерации цикла считывается символ из файла f1 и сохраняется в переменной c.
Затем происходит проверка: если символ в переменной c не равен пробелу, то он добавляется к переменной s.
Если символ в переменной c равен пробелу, то выполняется следующий блок кода:
- Переменная m инициализируется нулевыми значениями.
- Переменная i увеличивается на единицу.
- Переменная j устанавливается равной единице.
После окончания блока кода, значение переменной s сохраняется в массиве m.
Значение переменной s сбрасывается на пустую строку.
Значение переменной j увеличивается на единицу.
Цикл While повторяется для следующей итерации.