Вывести повторяющиеся символы на экран - Pascal

Формулировка задачи:

Доброго вечера. Пожалуйста помогите написать программу (Паскаль). Надо вывести повторяющиеся символы в строке на экран. Пример исходной строки: %5+abc35 Вывод на экран: 5

Решение задачи: «Вывести повторяющиеся символы на экран»

Листинг программы

var
  s: String;
  a: array [Char] of Integer;
  j: Integer;
begin
  ReadLn(s);
  for j:=1 to Length(s) do Inc(a[s[i]]);
  for j:=32 to 255 do if a[Chr(i)]>1 then Write(Chr(j); WriteLn;
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляются три переменные:
- s (строка) для хранения строки, которую вводит пользователь;
- a (массив) для хранения количества повторений каждого символа из строки;
- j (целое число) для счётчика символов в цикле.
С помощью функции ReadLn в переменную s считывается строка, которую вводит пользователь.
С помощью двух циклов происходит подсчёт повторений каждого символа в строке:
- Внешний цикл перебирает все символы строки (от первого до последнего).
- Внутренний цикл увеличивает счётчик в массиве a для каждого символа.
С помощью двух циклов выводятся на экран все символы от 32 до 255 (пробел и все буквы верхнего и нижнего регистра):
- Внешний цикл перебирает все символы от 32 до 255.
- Если значение счётчика в массиве a для текущего символа больше 1, то с помощью функции WriteLn выводится на экран текущий символ.