pascal. строки.заглавные буквы

[parovoz121]

пользователь вводит строку сделать так чтобы каждое слово начиналось с заглавной буквы. заранее спасибо.

[Stilet]

 var s:string;i:integer;
begin
s:='hello my world';
if s='' then halt;
s[1]:=UpCase(s[1]);
for i:=length(s)-1 downto 1 do
 if (s[i]=' ') then s[i+1]:=UpCase(s[i+1]);
writeln(s);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Смысл понятен?