Считать двумерный символьный массив из файла input и просто распечатать его в файл output - PascalABC.NET

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

Нужно считать двумерный символьный массив из файла input и просто распечатать его в файл output. 7(N,число строк) 5(M,число столбцов) 13(K, нужна для другого) ..... .1... ...9. .###. ....# .12.# .#.3.

type
 pole=array[1..100,1..100] of char;
var
 a:pole;
 i,j,N,M,K:integer;
 f1,f2:text;
begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
read(f1,N);
read(f1,M);
readln(f1,K);
for i:=1 to N do
 for j:=1 to M do read(f1,a[i,j]);
for i:=1 to N do
 begin
 for j:=1 to M do write(f2,a[i,j]);
 writeln(f2);
 end;
close(f1);
close(f2);
end.

Почему-то выводит: ..... .1. .. . ..9. .### . .. ..#

Решение задачи: «Считать двумерный символьный массив из файла input и просто распечатать его в файл output»

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

readln(f1,N,m,k);
for i:=1 to N do
 begin
  for j:=1 to M do
   begin
    read(f1,a[i,j]);
    write(f2,a[i,j]);
   end;
  writeln(f2);
 end;

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

Открывается файл input.txt для чтения
Вводятся и сохраняются в переменных N, M, K размеры массива a[i][j]
Создается двумерный массив a[i][j] размером N x M
В цикле по i от 1 до N считываются символы из файла input.txt и записываются в массив a[i][j]
В цикле по j от 1 до M считываются символы из файла input.txt и записываются в массив a[i][j]
Файл output.txt открывается для записи
В цикле по i от 1 до N выводятся символы из массива a[i][j] в файл output.txt
Закрывается файл output.txt
Закрывается файл input.txt