Пользователем вводится текст. Напечатать текст, исключив все буквы х - Pascal

Пользователем вводится текст. Напечатать текст, исключив все буквы x

Листинг программы

readln(s);
while pos('x',s)>0 do
delete(s,pos('x',s),1);

Объяснение кода листинга программы

s - это переменная, в которую пользователь вводит текст с помощью команды readln.
В цикле while проверяется, есть ли буква x в переменной s с помощью функции pos, которая возвращает позицию символа в строке.
Если буква x найдена (позиция больше 0), то с помощью функции delete удаляется буква x из переменной s.
Этот процесс повторяется до тех пор, пока в переменной s есть буква x. Таким образом, программа удаляет все буквы x из введенного текста и выводит результат.