program Predlozhenie;
uses crt;
var
     S: string;
     i: byte;
begin
clrscr;
writeln('Vvedite predlozhenie');
readln(s);  {предложенеи не более 255 символов}

s := ' ' + s;  {чтоб и первое слово было с большой буквы}
for i := length(s) downto 1 do
     if (s[i] = ' ') then
         begin
         s[i + 1] := upcase(s[i + 1]);
         delete(s, i, 1);  {можно и не удалять пробелы между словами}
         insert(#10#13, s, i);
         end;

writeln(S);
readkey;
end.