Задание 4 Урок 20 Вопрос по чтению файла

Задание 9 Урок 20

Дан текстовый файл, в котором с в ASCII-стиле нарисованы цепочки из цифр, которые связаны по горизонтали и вертикали.
Все цепочки составляют одно дерево, которое устроено так:

• всегда есть общий корень и это цифра
• по горизонтали цепочка не разрывается пробелами, соединяется же с помощью последовательностей знака - (тире).
• по вертикали цепочка не разрывается переносом строк, соединяется же с помощью вертикальных последовательностей символа | (вертикального разделителя).

Размер схемы не более чем 100 на 100 символов.

Примеры:

1------4--------------5-------6--------7
       |              |
       |              |-------5---------8
       |
       |-------6--------7--7-------9------8---1----5---3

Ответ: 10

Вопрос:

не могу разобраться с чтением файла, строка без горизонтальных тире не читается как новая, это у меня какой-то косяк с чтением файла или нужно алгоритмически как-то это обрабатывать?

вот мой код

Var
    f1:text;
    i: integer;
    filename, s: string;
begin
  filename := '/home/serg/Desktop/pascal/lesson_20_task_4/file/1.txt'; // путь к файлу
  assign(f1, filename);
  reset(f1);

  while not eof(f1) do
    begin
      readln(f1, s);

      for i:=1 to length(s) do
      begin
        write(s[i]);
      end;

    end;
  readln();
end.

вот файл:

1------4--------------5-------6--------7
       |              |
       |              |-------5---------8
       |
       |-------6--------7--7-------9------8---1----5---3

который читается и выводится вот так:

1------4--------------5-------6--------7       |              |       |              |-------5---------8       |       |-------6--------7--7-------9------8---1----5---3