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

Question

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

Answer 1

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

---