Дан текст. Написать программу, вставляющую после каждой запятой по одному пробелу.

read(s);i:=1;while i<length(s) dobeginif s(i)=',' then //возможно нужны [] insert(' ',s,i+1);i:=i+1;end;write(s);Проверить работу сейчас не могу, но вроде все норм))