Чтение текстового файла в массив в PASCAL

Question

У меня есть текстовый файл "text.txt", который содержит

48 42

Я пытаюсь прочитать текстовый файл и назначить его в массив. После этого я пытаюсь присвоить числа переменным num1 и num2.

Ниже приведено то, что я имею сейчас. По какой-то причине он не присваивает номера с помощью индекса массива.

program tutorial15;
  var
    infile, outfile: text;
    inputchar: char;
    num1: integer;
    num2: integer;
  begin
    assign(infile, 'text.txt');
    reset(infile);
    while not eof(infile) do
      begin
        while not eoln(infile) do
          begin
            read(infile, inputchar);
          end;
          num1 := inputchar[0];
          num2 := inputchar[1];
      end;
    writeln('Number1: ', num1);
    writeln('Number2: ', num2);
  end.

Я новичок в Паскале, пожалуйста, дайте мне знать, что я могу сделать, чтобы решить эту проблему!

Answer 1

program readtoarray;
var
        f: TextFile;
        i: Integer;
        a: array [0..1] of Integer;
begin
        assign(f, 'text.txt');
        reset(f);
        i := 0;
        while not eof(f) do begin
                read(f, a[i]);
                inc(i);
        end;
        close(f);
        for i := 0 to 1 do writeln('Number', i+1, ': ', a[i])
end.