[friz]

так по-моему лучше

Код:

var str:string;
    i,dlina:byte;
begin
i:=1;
str:='sdfcdbdfghgrtasdcvbfgdbt';
dlina:=length(str);
while i<=dlina do
begin
  if(str[i] = 'b') or (str[i] = 'c') or (str[i] = 'd') then
      begin
      Delete(Str, i, 1);
      dec(i); //i:=i-1;
      dec(dlina); //dlina:=dlina-1;
      end;
 inc(i); //i:=i+1;
end;