Файловый тип..., Файл f заполнить 300 случайными... Опции

[CormiX]

Здравствуйте! Прошу помогите написать програмку для решения даной задачи:
Файл f заполнить 300 случайными действительными числами. Найти последнюю компоненту файла f. Буду очень благодарен за помощь.
Немного сделал:

var
  f: file of Real;
  i: integer;
begin
  Randomize;
  Assign(f, 'file.bin');
  Rewrite(f);
  for i := 1 to 300 do
    Write(f, Random(1000) * 0.01);
  Close(f);
end.