opravene

var
   i,a,b,dlzka:integer;
   veta,s:string;
   ch:char;
begin
  writeln('Napis vetu');
  readln(veta);
  dlzka:=length(veta);
  for i:=1 to dlzka do
  begin
    if veta[i] = char(32) then
    begin
      delete(veta, i, 1);
      veta[i] := upcase(veta[i]);
    end;
  end;
  writeln(veta);
  readln();
  end.