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

program PascalGuru;

var
  s: string;
  i: integer;

begin
  writeln('Vvedite stroky:');
  read(s);
  writeln('Isxodnaya stroka: ', s);

  s[1] := UpCase(s[1]);
  for i := 3 to length(s) do
    if (s[i - 1] = ' ') and (s[i] <> ' ') then
      s[i] := UpCase(s[i]);

  writeln('Preobrazovannaya stroka: ', s);

  readln;
  readln;

end.