[Alegun]

Надоело под Рафой3L скрываться затянулся спор больно, bro lmikle, у ТС в задании указано

3) Дана строка. Удалить из неё всё группы букв "abcd".

поэтому, "чтоб препод не догадался" достаточно и банального

Код:

var
 i: integer;
 s: string;
begin
  s:= 'abcd4AbcdABCDdrewabds29abdcabcdabcdwerteds';
  if Length(s) < 5 then Exit;
  for i := Length(s) downto 1 do
   if i >= 4 then
   if s[i-3]+s[i-2]+s[i-1]+s[i] = 'abcd' then Delete(s,i-3,4);
  // Result: s = '4AbcdABCDdrewabds29abdcwerteds'
end;

похоже учёл возможные вылеты и ошибки

З.Ы.Оффтоп:

...Вроде, у меня с примером получилось короче, чем у тебя

Через pos() и я так могу , а вот без функций ВУ чисто перебором намного труднее кому-то аналог StringReplace было собирать :-)