Ввести строку, вывести на экран символы, повторяющиеся в строке более 2 раз.

[bibl2008]

Может кто-нибудь набросает текст программки?

[counter]

может кто то покажет что у него есть и что не получается?

[alex_fcsm]

uses crt;
var s:string;
    f,sec,t:set of char;
    i:integer;
    
begin
clrscr;
readln(s);
f:=[];sec:=[];t:=[];
for i:=1 to length(s) do
if not (Upcase(s[i]) in f) then f:=f+[Upcase(s[i])]
   else if not (Upcase(s[i]) in sec) then sec:=sec+[Upcase(s[i])]
        else if not (Upcase(s[i]) in t) then t:=t+[Upcase(s[i])];
for i:=1 to length(s) do
 if Upcase(s[i]) in t then begin
                      if s[i]<>' ' then write(s[i],' ');
                      t:=t-[Upcase(s[i])];
                     end;
end.

[bibl2008]

спасибо, а можно это как-нибудю по проще сделать?

[Лукманов Александр]

var

   i,s,k: integer;
   a: array of string;
   z: string;

begin
 for i:=0 to Length (Edit1.text) do 
 a[i]:=edit1.Text[i];
end;
 for i:=0 to Length (Edit1.text) do
  for s:=0 to Length (Edit1.Text) do  begin
   if a[i]=Edit1.Text[s] then begin
 {   k:=k+1;
   if k>4 then z:=a[i];
  end;
 label1.Caption:=z; }

end;

Неправильно я написал. Не могу допереть, куда и как счётчик "К" засунуть.