удаление всех одинаковых символов из строки Опции

[18192123]

Подскажите, как из строки, состоящей из слов, удалить все символы а,с (из стандартного можно использовать только length, ord, char)

в голову ничего дельного по поводу этой задаче мне не приходит...

[klem4]

Упс, ну тогда можной свой delete сделать вот так например:

procedure _delete(var s: string; start, len: Integer);
var
  i: Integer;
begin

  if start <= 0 then exit;

  if start + len > Length(s) then
   len := Length(s) - start + 1;

  for i := start to Length(s) - 1 do s[i] := s[i + len];

  dec(s[0], len);

end;