Запись символов текстового файла в массив - Pascal ABC

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

В массив записываются не все символы из txt блокнота. Не пойму в чем ошибка. Или может не выводятся все. Нужно чтобы в массиве были все символы из блокнота input. Код:

                    Листинг программы
                
 
                        
                          
                    
Program Microf;
var f,f2:text; g,N,K:integer; a:array[0..8,0..4] of char;
i,h:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,N); readln(f,K); writeln(N);writeln(K);
 
for i:= 0 to 8 do begin
for h:= 0 to 4 do begin
read(f,a[i,h]); write(a[i,h]); end; end;
close(f);
end.

Символы input.txt: 3 4 +1ЛД -1ЛД +2ЛН +3ЛН -3ПН +1ПД -1ЛД -2ПН

Решение задачи: «Запись символов текстового файла в массив»

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

var
  f: Text;
  a: array [1..8,0..4] of Char;
  n, k, i: Integer;
begin
  Assign(f,'input.txt'); Reset(f);
  ReadLn(f,n,k);
  for i:=1 to 8 do ReadLn(f,a[i]);
  Close(f);
end.

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

В данном коде происходит чтение текстового файла input.txt и его содержимого записывается в массив a.

Переменная f инициализируется значением 'input.txt', что позволяет использовать функцию Assign для чтения файла.
Функция Reset(f) используется для сброса файла перед чтением.
Чтение первой строки файла выполняется с помощью функции ReadLn(f,n,k), где n и k - переменные, которые будут использоваться для чтения следующих строк файла.
Для каждой строки файла (до 8-й строки) выполняется чтение с помощью функции ReadLn(f,a[i]), где i - переменная, которая увеличивается на 1 после каждого чтения.
После завершения чтения файла вызывается функция Close(f).