[The Shadow]

Код:

var
F: TStringList;
i, first, last: Integer;
begin
F:=TStringList.Create;
F.LoadFromFile('1.txt');
first:=//
last:=//
for i:=last downto first do
if Pos('слово', F.Strings[i]) > 0 then F.Delete(i);
F.SaveToFile('1.txt');//если надо
F.Free;
end;