В строковую переменную "S" ввести несколько слов. Заменить в строке "S" пробелы на запятые

program asd;var S:string;beginread(s);  while pos(' ', S) <> 0 do    S[pos(' ', S)] := ',';writeln(s);end.