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

Я заменил x:= 'cTestTestcTestc'; на read (x) и всё тоже самое.

Там смотря сколько 'с' в слове, если 3 то все норм, а если нет то ошибка.

Подругому сделал. Смотри.

Теперь идеально. Спс!

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.