program velke_pismena;
type    velke='A'..'Z'; 
                         (*interval, v ktorom lezia velke pismena angl. abecedy*) 
	polepocit=array[velke] of integer;
   (*definovany typ rozmeru A..Z pozostavajuci z celych cisel            udavajucich pocetnost*)
var  pocty:polepocit;	
	znak:char;
	i:integer;

begin 
  for znak:='A' to  'Z' do pocty [znak]:=0;
                                 (*vynuluje pocitadla pocetnosti jednotlivych pismen*)
  writeln('Zadaj text ukonceny znakom *');
  read(znak); (* prvy znak *) 
  while (znak<>'*') do 
                                 (*cyklus na nacitavanie znakov z klavesnice*)
  begin 
	if ((znak>='A') and (znak<='Z')) then 
           pocty[znak]:=pocty[znak]+1;
									   read(znak);
  end;
 
  writeln('Pocetnost velkych pismen je:');
  for znak:='A' to 'Z' do 
begin
	if (pocty[znak]>0) then 
	 writeln(znak,'- ',pocty[znak]);
end;
  readln;
  readln;
end.