This is my program:
var
 total:longint;
procedure init;
 var
  a:char;
  start:boolean;
  w:longint;
 begin
  read(a);
  start:=true;
  w:=0;
  repeat
   if not(a in[' ',';',':','-',',']) then
    begin
     if a in['.','!','?'] then
      begin
       start:=true;
       w:=0;
      end else
     if a in['A'..'Z'] then
       begin
        if w<>0 then inc(total);
        if (w=0)and(start) then start:=false;
        inc(w);
       end else
     if a in['a'..'z'] then
      begin
       if start=true then
        begin
         inc(total);
         start:=false;
        end;
       inc(w);
      end;
    end else w:=0;
  read(a);
  until eof;
  writeln(total);
 end;

begin
 init;
end.