* Пользовательские процедуры и функции

[DJ Kost]

Ребят помогите пожалуйста разобраться с этой задачкой

Разработать функцию Change(const S:string):string, возвращающую строку, в которой после каждого пробела поставлена запятая. С помощью данной функции у каждой строки из введенного набора после каждого пробела поставлена запятая.

[danekne]

function str(s:string):string
var s1,s2:string;
flag:boolean;
begin
while !flag do
begin
flag:=false;
if pos (' ',s)>0 then
begin
insert (',',s,pos(' ',s)+1,);
flag:=true;
end;
end;
str:=s;
end;
что то вроде этого

[JTG]

А так можно?

function Change(s:string):string;
begin
  result:=StringReplace(s, ' ', ' ,' , [rfReplaceAll]);
end;