Создать массив по числу букв в алфавите и увеличивать элемент массива, который соответствует конкретной букве. Индексом будет ASCII код буквы (символа) нпрм ASCII(a)=97, значит j:=ord(string)-96; dec(array(j)); выводить надо по условию if array(i)>0 then write(char(i+96),array(i));