удаление слова, введенного с клавиатуры, из файла Опции

[Child of Bodom]

Спасибо все работает. Мне чтоб цитаты делать надо было включить плагины или java . А почему меня ваш форум не запоминает, когда я на него захожу, каждый раз приходится авторится. Вот...Можете еще с одной задачкой помочь-последней на ближайшие пол года:дан текст. Удалить в нем слово, введеное с клавиатуры. Вот что то у меня тут есть но прога ничего не удаляет:

program rgr3_4;
uses crt;
var f,g: text;
procedure vivod(var f: text);
var x: string;
begin
     reset(f);
     while not eof(f) do
     begin
          readln(f,x);
          writeln(x);
     end;
     close(f);
end;
procedure del;
var x,n:string;
    p,p1:integer;
Begin
reset (f);
rewrite(g);
writeln;
writeln ('Введите слово без пробелов ');
readln (n);
while not eof(f) do
begin
readln (f,x);
p1:=pos(' ',x);
p:=pos(n,x);
if (p<>0) and (p-p1=1) then
Begin
delete(x,p,length(n)+1);
writeln (x);
writeln (g,x);
end
else
begin
writeln (x);
writeln (g,x);
end;
end;
close (f);
close (G);
end;
Begin
clrscr;
assign (f,'pismo.txt');
assign (g,'vremen4.txt');
vivod(f);
del;
readln;
erase (g);
end.

Надеюсь на вашу помощь!!
Тут тот текстик

[мисс_граффити]

может,

if (p<>0) and (x[p-1]=' ') then 

?
а еще рассмотреть случай, что перед словом нет пробела - оно же может быть первым в строке.
и, кстати, логично было бы проверять, что стоит ПОСЛЕ слова.
А то будет:
надо удалить "нос".
строка: нос носили и выносили носатики
получится: или и выносили атики.

Сообщение отредактировано: мисс_граффити - 26.12.2006 20:06