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

[CherkaS]

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

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

[klem4]

Perfez, твою программу не запускал, но кажется мне что - то не то она делает ...

var
  f: Text;
  s, new: String;
begin

  readln(new);

  assign(f, 'text.txt'); reset(f);

  if not(eof(f)) then begin

    repeat
      readln(f, s);
    until eof(f) or (s = new);

    if eof(f) and (s <> new) then begin
      Append(f);
      writeln(f, new);
    end
  end;

  close(f);
end.