Преобразовать строку, заменив в ней все буквы "а" на букву "о" - Turbo Pascal

Дана строка русских букв. Преобразовать строку, заменив в ней все буквы а на букву о.

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

While Pos('а',S)>0 do S[Pos('а',S)]:='о';

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

В первой строке кода объявляется переменная S типа string, которая будет использоваться для хранения исходной строки.
Затем следует условие While, которое будет выполняться до тех пор, пока позиция символа 'а' в строке S больше 0.
Внутри цикла происходит замена каждого вхождения символа 'а' на символ 'о' в строке S. Это достигается с помощью операции замены строки S[Pos('а',S)], где Pos('а',S) возвращает позицию символа 'а' в строке S.
Значение, которое находится на позиции, выделенной в квадратных скобках, заменяется на значение 'о'.
Цикл продолжается до тех пор, пока условие While не будет выполнено, то есть пока все вхождения символа 'а' не будут заменены на 'о'.