В строке все слова разделены пробелами и написаны с маленькой буквы заменить, необходимо заменить первую маленькую букву в каждом слове на большую — Pascal(Паскаль)

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var s:string;
    i:integer;
begin
Writeln('Введите слово.');
Readln(s);
 
s[1]:=UpCase(s[1]);
 
For i:=1 to Length(s) do
If s[i]=' ' then s[i+1]:=UpCase(s[i+1]);
 
Writeln(s);
readln;
end.