Дана строка состоящая из русских слов разделенных пробелами. удалите из текста все запятые

program zz1;

var s:string; / / задаем переменную строкового типа

i:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i: = length (s) downto 1 do / / организуем цикл, в котором переберем все символы от последнего до первого

if (s[i] = ',') then delete (s, i, 1); / / проверяем, если символ строки является запятой, то удаляем этот символ

write (' полученная строка = ', s); / / выводим ответ

end.