Множества, задача на повторяющиеся элементы, Решение без массива...Как?! Опции

[Clerick]

Помогите решить задачу!!!
Нужно составить программу, которая будет искать в множестве повторяющиеся болле 2-х раз элементы и выводить их на экран!!!
Есть решение через массивы на примеры строки букв, но училка сказала, что можно и без них как???

uses crt;
const n=255;
type alarm=set of char;
var c: array [1..255] of integer;
      a:alarm;
      s:string [25];
      i,j:integer;
 begin
 clrscr;
 readln(s);
for i:=1 to n do
 for j:=1 to length(s) do
    begin
     if s[j]=chr(i) then c[i]:=c[i]+1;
    end;
for i:=1 to n do 
 if c[i]>=2 then a:=a+[chr(i)];
for i:=1 to n do
 if  chr(i) in a then write (chr(i));
end.
 

Заранее спасибо!!!

[volvo]

То же самое, что

Count := Count + 1;

Так больше нравится?

Нужно в строке отыскать одинаковые символы!!!

Судя по твоей программе - нужно отыскать символы, встречающиеся более одного раза...