[ua3rad]

Все разобрался!!!

Код:

type
  Tmas = array of string;

var arr: Tmas;

SetLength(arr,0);
while not Seekeof(f) do
  begin
    SetLength(arr,Length(arr)+1);