File: BUCHST.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM BUCHSTABENHAEUFIGKEIT(INPUT,OUTPUT);
    VAR BUCHST: CHAR;
        ZAEHLER: ARRAY["A".."Z"] OF INTEGER;
BEGIN
  FOR BUCHST := "A" TO "Z"  DO ZAEHLER[BUCHST] := 0;
  WHILE NOT EOF DO
    BEGIN
      WHILE NOT EOLN DO
        BEGIN
          READ(BUCHST); WRITE(BUCHST);
          IF ("A"<=BUCHST) AND (BUCHST<="Z") THEN
                ZAEHLER[BUCHST] := ZAEHLER[BUCHST] + 1
        END;
      READLN; WRITELN
    END;
  FOR BUCHST := "A" TO "Z" DO WRITELN(BUCHST:10,ZAEHLER[BUCHST])
END.

---