Задан произвольный текст. Удалить все запятые и определить на сколько символов уменьшить я текст( паскаль, подробно, через write, read, delete и тп)

Предыдущий
вопрос Следующий
вопрос

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

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

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

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

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

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