На вход программы подаются произвольные алфавитно-цифровые символы. Прогрмирование Паскаль 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.