program p15;

Uses Crt;

var veta1,veta2:string;
              i:byte;

begin
clrscr;
write('Napis vetu : ');
readln(veta1);
veta2:=upcase(veta1[1]); { do nove vety zapiseme jiz velke pismeno 1.slova }
for i:=1 to length(veta1)-1 do
if veta1[i]=' ' then { kdyz nalezneme ve vete mezeru }
veta2:=veta2+upcase(veta1[i+1]) { pripiseme do nove vety velke pismeno za mezerou }
else veta2:=veta2+veta1[i+1];   { jinak jej pripiseme male tak, jak je }
writeln('Nova veta zni : ',veta2);
repeat until keypressed;
end.