работа с файлами!, помогите пожалуйста очень нужна помощь срочно помогите пожалуйста Опции

[CherkaS]

мне нужно написать программу чтобы добавлялось инфа введеная с клавиатуры в конец файла если она не совпадает с уже существующими записями в файле.
например я ввел ПОМОЩЬ_НУЖНА в файле должно быть:
...
морковь любовь
я люблю програмировать
ПОМОЩЬ_НУЖНА
-------------------------------------------------------------------------------------------------------------------------------------
так же мне нужно написать программу которая бы удаляла из файла ту запись(и все остальное что находится на строке с этой записью) которая совпала с введеной с клавиатуры.

ЗЫ работа с нетипизироваными файлами(res, temp:text;)

[Perfez]

Лови, по логике должно работать:

var
f:text;
x,y:string;
i,n:integer;
Function Check(x:string):boolean;
Begin
Repeat
ReadLn(f,y);
If x=y then Check:=True;
Until Eof(f)=True;
Check:=False;
End;
Begin
ReadLn(n);
Assign(f,'input.txt');
ReWrite(f);
ReadLn(x);
WriteLn(f,x);
For i:=1 to n do
Begin
ReadLn(x);
If Check(x)=False then WriteLn(f,x);
End;
Close(f);
End.