To je uplne primitivne...
Urobis si pole integerov od a po z (pole:array['a'..'z'] of integer). Potom citas zo suboru, pripadne velke pismena premenis na male a urobis inc(pole[znak])...