Файловый тип данных: Вывести на экран все отрицательные компоненты файла

[Lera64]

Привет)Помогите задачу решить пожалуйста.
Дана последовательность из n вещественных чисел.Записать все эти числа в файл.Вывести на экран все отрицательные компоненты файла.

[Stilet]

var f:file of double;d:double; i:integer;
begin
 assign(f,'f');rewrite(f); 

{Запись}
 for i:=1 to 1000000000 do begin
  d:=random(100)/random(100);
  write(f,d);
 write(d:5:2);
 end;

{чтение}
 reset(f);
 while not eof(f) do begin read(f,d);if d<0 then write(d:5:2);end;

 readln;
end.

Идея понятна?