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

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.