создание файла в делфи

[Hunter7]

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

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

[Hunter7]

var
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);

помогите пожалуйста дальше написать программу

[Hacker19_90]

Не вопрос в чём проблема?

[Hunter7]

не знаю как дальше цикл написать

[Mad_Cat]

readln(r);
repeat
  Write(F, r);
readln(r)
until r=999;
close(f);

[Hunter7]

AssignFile(F, ''+edit1.text);
  Reset(F);                      {открываем файл}
  Seek(F, FileSize(F));
 
 r:=0;
  while r<>999 do               {добавляем пока не 999} 
  begin
    Readln(r);
    Write(F, r);
  end;
  CloseFile(F);

  AssignFile(F, ''+edit1.text);    {вывод из файла}
  Reset(F);
  while not EOF(F) do
  begin
    Read(F,r);
    Writeln(r);
  end;   
  CloseFile(F);
 end;

end.

вот написал продолжение, но происходит ошибка

[Hunter7]

мне нужно через цикл while..do, в задании написано

[Hunter7]

Сообщение от Mad_Cat

readln(r);
repeat
  Write(F, r);
readln(r)
until r=999;
close(f);

мне нужно через цикл while..do, в задании написано

[whatever]

AssignFile(F, ''+edit1.text);
//  Reset(F);                      {открываем файл}
//  Seek(F, FileSize(F));
  append(F);
 
 r:=0;
  while r<>999 do               {добавляем пока не 999} 
  begin
    Readln(r);
    Write(F, r);
  end;
  CloseFile(F);

//  AssignFile(F, ''+edit1.text);    {вывод из файла} два раза ненужно
  Reset(F);
  while not EOF(F) do
  begin
    Read(F,r);
    Writeln(r);
  end;   
  CloseFile(F);
 end;

end.

[Hunter7]

ошибка I/O error 6