(*$L+*)
PROGRAM FCOUNT(INPUT,OUTPUT) ;
    
(*  FREQUENCY COUNT OF LETTERS IN INPUT FILE
    FROM PASCAL USERS MANUAL AND REPORT  *)
    
VAR CH : CHAR; J : INTEGER ;
    COUNT : ARRAY['A'..'Z'] OF INTEGER;
    LETTER : SET OF 'A'..'Z';
    
BEGIN LETTER := ['A'..'Z'];
   FOR CH := 'A' TO 'Z' DO COUNT[CH] := 0;
   WHILE NOT EOF(INPUT) DO
   BEGIN
      WHILE NOT EOLN(INPUT) DO
      BEGIN  READ(CH); WRITE(CH);
         IF CH IN LETTER THEN COUNT[CH] := COUNT[CH] + 1
      END;
      WRITELN(); READLN(INPUT)
   END;
    
J := 0 ;
FOR CH := 'A' TO 'Z' DO
    BEGIN   IF COUNT[CH] > 0 THEN J := J+1 ;
       WRITELN(CH,COUNT[CH]:10)
    END;
WRITELN( ' TOTAL CHARS IN THE TEXT :' ,J) ;
END.