сложная задача на подпрограмму, используется символьный массив Опции

[HelpMe]

Требуется ваша помощь в решении этой задачи:

Дан символьный массив. Определить , используя подпрограмму , какие символы встречаются 2 раза , 3 раза , к раз. Повторяющиеся символы и количество их повторений вывести на экран.

Немогу составить процедуру , возникает проблема с символами которые повторяются больше 2 - ух раз , незнаю как реализовать ... требуется ваша помощь , спасибо тому кто поможет в решении

[volvo]

программа ищет в массиве только повторения символа "k" , а в условие нужно найти повторение любых символов введённых с клавиатуры

Да ты что? "А мужики-то не знают" (С) Моя программа ищет в массиве (который ты, кстати, заполняешь неправильно! У тебя 10 символов - максимально, ты же вводишь 19!!! Теперь ты понимаешь, ПОЧЕМУ я все время добивался от тебя информации, КАК ты наконец заполняешь массив? Чтоб ты потом не сказал, что моя же программа неправильно работает!) все символы, которые встречаются К раз, а не все символы "К". Это во-первых. А во-вторых, никто не мешает вызвать процедуру в цикле:

  for i := 2 to 10 do begin { Ну, можно и не до 10, а до скольки нужно... }
    write(i, ': '); print_chars(i);
  end;