Помогите с заданием в Делфи

[hunter7]

Помогите с заданием в Делфи

Составьте программу, которая создает файл, состоящий из пяти
значений типа real. Тип record не используйте.
Выведите файл на экран. В цикле while..do расширьте файл за счет
добавления новых значений. Выход из цикла-
значение 999. После расширения выведите файл на экран.

пожалуйста напишите код для этой программы

 

[hunter7]

F:textfile;
i:integer;
r:real;
begin
AssignFile(F,''+edit1.text);
Rewrite(f);
for i:=1 to 5 do {пишем в файл пять случайных значений}
begin
r:=Random(10000)/10;
Writeln(F, r);
end;
CloseFile(F);


не знаю что дальше, помогите пожалуйста