Добовление записи в файл

[mr.Starosta]

Помогите пожалуйста!
Надо написать процедуру которая будет добовлять новую запись в файл

Вот текст программы
program a;
procedure soz;
var
F: text;
s: string[100];
begin
Assign(F, 'D:\file.txt');
Rewrite(F);
repeat
Write('Vvedite stroki');
Readln(s);
Writeln(F,s);
until s=' ';
Close(F);
end;
procedure log;
var
F: file of char;
c:char;
begin
Assign(F, 'D:\file.txt');
Reset(F);
While not eof(F) do
begin
read(F,c);
Writeln(c);
end;
Close(F);
end;
procedure poisk;
var
f: text;
str,s:string;
begin
Assign(F, 'D:\file.txt');
Reset(F);
Write('slovo dlya poiska');
Readln(s);
while not eof(F) do
begin
Readln(F, str);
if pos(s, str)>0 then
Writeln(str);
end;
Close(F);
end;
var
m:Byte;
q:integer;
begin
q:=0;
repeat
Writeln('1-soz');
Writeln('2-log');
Writeln('3-poisk');
Writeln('4-vyx');
Readln(m);
case m of
1:soz;
2:log;
3: poisk;
end;
until m=4;
end.
Зарание спасибо!

[interacia]

процедура добавления может быть как ваша procedure soz;
Только нужно заменить в ней Rewrite(F); на Append(F);
Попробуйте.