пожалуйста пмогите с задачей

Напечатать все буквы текста, которые в него входят не менее 2-х раз !! ПЛЗ

  for ch := 'a' to 'z' do
   if Pos(ch, Copy(s, Pos(ch, s) + 1, 255)) <> 0 then
    writeln(ch);