Помогите решить задачу на Delphi 7

[Юрий2009]

задача: В строке между словами вставить вместо пробела запятую и пробел. Заранее спасибо!

[maladoy]

нужно консольное приложение или с формой??????
\

[maladoy]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,s:string;
i:integer;
begin
try
writeln('vvedite stroku');
readln(a);
for i := 1 to Length(a) do
if a[i]= ' ' then s:=s+', '
else s:=s+a[i];
writeln('ishodnaya:');
writeln(a);
writeln('=============');
writeln('ispravlennaya:');
writeln(s);
writeln('=============');
readln;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

[puporev]

Правильно так.

i:=length(s);
while i>=1 do
   begin
     if s[i]=' 'then
        begin
          insert(',',s,i);
        end;
     dec(i);
    end;

[NOOB]

можно так:

  i:=pos(' ',s);
  if i>0 then
  s[i]:=',';

только не забудте подключить помимо "SysUtils" еще и "System"