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

program Project4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var     S,f: string;
        n,i,p: integer;
Begin
 Write('vvedite stroky texta - St ');
 Readln(S);
 f:=',';
 p:=pos(f,S);
 n:=length(S);
 for i:=length(s) downto 1 do
if s[i]=' ' then insert(f,S,p-1);
 
        writeln ( s);
  readln(s)
 
 
end.
 
[size="1"][color="grey"][I]Добавлено через 4 минуты[/I][/color][/size]
Var     S,f: string;
        i,p: integer;
Begin
 Write('vvedite stroky texta - St ');
 Readln(S);
 f:=',';
 p:=pos(' ',S);
 for i:=1 to length(S) do
if s[i]=' ' then insert(f,S,p-1);
 i:=i+1;
        writeln ( s);
  readln(s)
 
 
end.

var
a,b:string;
i:integer;
begin
readln(a);
for i:=1 to length(a) do
if a[i]<>' 'then b:=b+a[i]else b:=b+', ';
writeln(b);
end.

for i:=length(s) downto 1 do
if s[i]=' ' then insert(',',s,i);