Срочно:( - Free Pascal

Формулировка задачи:

Дан текст телеграммы. Заменить все ЗПТ и ТЧК на "," и "."

Решение задачи: «Срочно:(»

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

repeat
if pos('ЗПТ',s)<>0 then
begin
k:=pos('ЗПТ',s);
delete(s,k,3);
insert(s,k,',');
end;
if pos('ТЧК',s)<>0 then
begin
t:=pos('ЗПТ',s);
delete(s,t,3);
insert(s,t,'.');
end;
until (pos('ЗПТ',s)=0) and (pos('ТЧК',s)=0);

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

В данном коде происходит замена всех вхождений ЗПТ на запятую, а всех вхождений ТЧК на точку. Вот список действий:

Проверка наличия ЗПТ в строке s.
Если ЗПТ найдено, то:
- Переменная k получает позицию первого символа ЗПТ.
- Строка s изменяется: удаляются символы ЗПТ и следующие за ними три символа.
- В строку s вставляется запятая на позицию k.
Проверка наличия ТЧК в строке s.
Если ТЧК найдено, то:
- Переменная t получает позицию первого символа ЗПТ.
- Строка s изменяется: удаляются символы ЗПТ и следующие за ними три символа.
- В строку s вставляется точка на позицию t.
Пока ЗПТ и ТЧК встречаются в строке s.
Код повторяется до тех пор, пока ЗПТ и ТЧК не перестанут встречаться в строке s. Важно отметить, что код может работать некорректно, если ЗПТ или ТЧК являются частью более длинных символов или строк.