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

[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.

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

[volvo]

Юля, а вылететь за пределы строки при такой проверке не боишься? Я бы боялся... Кстати, я где-то приводил трехэтажную проверку одним If-ом на то, что слово первое, или в середине строки (и обрамлено соотв. символами), или в конце строки... Сейчас найду...

Вот оно: 2 строки файла
Только заменить проверку на пробел проверкой на включение во множество...

Сообщение отредактировано: volvo - 26.12.2006 20:30