Задание 2. Подсчет числа вхождений букв в текст определенной длины.

Программа подсчитывает вхождения строчных латинских букв в строке, которая заканчивается точкой. Символы, не являющиеся строчными латинскими буквами, не учитываются.

program COUNTER;
var
  COUNT: array['a'..'z'] of Integer;
  CH: Char;
begin
  for CH := 'a' to 'z' do
    COUNT[CH] := 0;

  repeat
    Read(CH);
    if (CH >= 'a') and (CH <= 'z') then
      COUNT[CH] := COUNT[CH] + 1;
  until CH = '.';

  for CH := 'a' to 'z' do
    Writeln(CH, ' ', COUNT[CH]:5);
end.

Сначала обнуляются счётчики. Затем программа читает символы до точки и увеличивает соответствующий счётчик для каждой строчной буквы. В конце выводится количество вхождений каждой буквы.