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

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