[Asinkrit]

Код:

...
var
  a:array of real;
...
begin
...
  SetLength(a, 0);
...
  while not eof(f) do
    begin
       SetLength(a, Length(a)+1);
       Readln(f,a[high(a)]);
       Memo1.Lines.Add(floattostr(a[high(a)]));    
    end;
...
  SetLength(a, 0);
end;