Задача по Delphi

[Divine.King]

Дана последовательность символов. Напечатать все буквы, входящие в текст не менее двух раз


помогите пожалуйста решить эту задачу???

[Poma][a]

последовательность символов

- подразумевается строка?

[Hacker19_90]

лучше так

const
    Mas_ch: array[1..26] of char = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
........................
for i := 1 to 26 do
begin
    count := 0;
    for j := 1 to length(s) do
    begin
          if mas_ch[i] = s[j] then Inc(count);
          if count >= 2 then 
          begin
               Write (s[i], ' ');
               break;
          end;
    end;
end;

но это только для строчных