Нужна помощь!!))

[ТРОЯН=)]

Ребята подскажите плиз!!!
Дана строка нужно подсчитать количество заглавных букв в каждом слове этой строки!!!Как находить заглавные во всей строке я знаю а в каждом слове написать немогу!!!Помогите плиз

[Tkirill]

uses crt;
const
m=['A'..'Z'];
var
s,st:string;
kol,i,j,n:integer;
begin
clrscr;
write('Введите строку -> ');
readln(s);
s:=s+' ';
i:=1;
st:='';
kol:=0;
n:=0;
repeat
if s[i]<>' ' then st:=st+s[i]
else
begin
n:=n+1;
for j:=1 to length(st) do
if st[j] in m then kol:=kol+1;
writeln('В ',n,' слове ',kol,' заглавных букв ');
st:='';
kol:=0;
end;
i:=i+1;
until i>length(s);
readln;
end.

[ТРОЯН=)]

Огромное спасибо за помощь прога работает всё супер)))