Помещение строки из файла в массив - Pascal ABC

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

Дан текстовый файл. В нем записываются фамилия имя и возраст людей в столбик: Фамилия Имя - возраст Фамилия Имя - возраст Нужен алгоритм, выводящий только фамилию и имя: Фамилия Имя Фамилия Имя Желательно сделать это через массив. Вот моя попытка :

while not eof(fil) do
      begin
        readln(fil,str);      
        str:=str+' ';
        while pos(' ', str) <> 0 do
          begin
            number:=number+1;
            famim[number]:=copy(str,1,pos(' ', str)-1);
            delete(str,1,pos(' ', str));
          end;
        writeln(famim[1],' ', famim[2]);

Выдает много фамилий первого человека в списке. Прошу помочь.

Решение задачи: «Помещение строки из файла в массив»

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

while not eof(fil) do
  begin
   readln(fil,str);    
   writeln(copy(str,1,pos('-',str))-2);
 end;

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

Открывается файл для чтения fil
В цикле while с условием not eof(fil) происходит чтение строки из файла fil и сохранение её в переменной str
Выводится на экран значение переменной str без последней позиции (pos('-',str)-2)
По окончании чтения файла, цикл while завершается