Удалить из строки все группы вида abcd

[Григорийpnz]

Дана S- строка символов длиной n. Удалить из строки все группы вида abcd.

[alex_fcsm]

uses crt;
var s:string;
    i:integer;

begin
clrscr;{очищаем экран}
Readln(s); {считываем строку}
repeat
i:=pos('abcd',s); {ищем начало вхождения строки abcd}
if i<>0 then delete(s,i,4); {вырезаем ее }
until i=0; {если ничего не нашли}
writeln(s);
end.

[Григорийpnz]

Спасибо брат выручил!!!

[Григорийpnz]

Блин alex я её в Paskale набран а она не работает на deletes указывает...
подскажи чё такое??

[alex_fcsm]

Скопируй из браузера в блокнот и поменяй расширение, и открой через Паскаль

[Григорийpnz]

Что за расшерение никак не пойму,забыл...

[alex_fcsm]

Копируешь все что написано из браузера в блокнот(***.txt)
Переименовываешь файл в ***.pas
Открываешь Паскаль и запускаешь этот файл

[Григорийpnz]

А как переименовать обясни

[alex_fcsm]

http://www.x2b.ru/get/12253