На вход программы подаются произвольные алфавитно-цифровые символы. Прогрмирование Паскаль ABC

var  a : array ['a'..'z'] of integer;  c : char; begin  for c := 'a' to 'z' do    a[c] := 0;  read(c);  while c <> '.' do    begin    if (c >= 'a') and (c <= 'z') then      a[c] := a[c] + 1;    read(c)    end;  for c := 'a' to 'z' do    if a[c] <> 0 then      writeln(c,a[c]) end.