Пожалуйста посчитайте. Ошибка в pascalABS, просто скажите что не так.

var
  x, ch: string;
  i: integer;
begin
  write('Введите предложение: '); readln(x);
  ch := 'c';
  while Pos(ch, x) <> 0 do
    Delete(x, Pos(ch, x), Length(ch));

  writeln(x);
end.