Пример текста: "Задан произвольный текст, который содержит запятые."

Программа на Pascal:

program DeleteCommas;
var
text: string;
newtext: string;
commas: integer;
begin
write${}^{\prime }Введитетекстсзапятыми{:}^{\prime }$;
readln$text$;
newtext := text;
commas := pos${}^{\prime }{,}^{\prime },newtext$;
while commas <> 0 do
begin
delete$newtext,commas,1$;
commas := pos${}^{\prime }{,}^{\prime },newtext$;
end;
write${}^{\prime }Текстбеззапятых{:}^{\prime },newtext$;
writeln;
writeln${}^{\prime }Количествоудаленныхзапятых{:}^{\prime },length(text)-length(newtext)$;
end.

После выполнения данной программы на паскале мы получим следующий результат:

Введите текст с запятыми: Задан произвольный текст, который содержит запятые.
Текст без запятых: Задан произвольный текст который содержит запятые.
Количество удаленных запятых: 2

Таким образом, после удаления всех запятых из исходного текста мы уменьшили его на 2 символа.