Bonjour ou rebonjour

J'aimerais retrouver un programme qui lit une phrase et en compte le nombre de lettres en majuscule.

Pour l'instant j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
{$R *.res}
 
type tst50 = string[50];
var phr:Tst50;
    nblettre:integer;
procedure Compte_maj(phr:tst50);
var nblettre,i:integer;
begin
 
while (pos('  ',phr)<>0) do
    delete(phr,pos('  ',phr),1);
 
  for i:=1 to length(phr) do
      if phr[i]=' ' then
         nblettre:=nblettre+1;
  end;
 
begin
  writeln('..................................................');
  writeln(' Programme nombre de lettre majuscule : ');
  writeln('..................................................');
  writeln;
  write('Veuillez introduire une phrase ou un mot : ');
  readln(phr);
  writeln;
 
  nblettre:=1;
 
    phr:=trim(phr);
 
    Compte_maj(phr);
 
 writeln('Il y a ',nblettre,' lettres en majuscule dans la phrase/mot');
 
 if phr=phr then
    begin
      writeln('C''est une Anagrammes');
      writeln(phr)
 
    end
  else
     writeln('Ce n''est pas une Anagrammes');
 
  readln
end.
J'ai aussi rajouté des lignes de code pour savoir si oui ou non il s'agit d'anagramme. Pouvez-vous m'aider ? Merci.