Вывести все буквы данного текстового файла, входящие в файл не менее двух раз.

[swillrocker]

Вывести все буквы данного текстового файла, входящие в файл не менее двух раз.(используются только последовательные файлы).

Uses crt;
 
Var
 f:text;
 a:set of char;
 s,p:string;
 i,j,n:integer;
Begin
 clrscr;
 assign(f,'c:\input.txt');
 reset(f);
 While not eof(f) do
  Begin
   readln(f,s);
  for i:=1 to length(s) do a:=a+[s[i]];
  for i:=1 to length(s) do if s[i] in ['a'..'z'] then p:=p+s[i];
  End;
  s:='';
  for i:=1 to length(p) do
  for j:=i to length(p) do
   if p[i]=p[j+1] then s:=s+p[i];
  write(s);
 close(f);
 readln;
End.

Проблема в том, что программа работает только если повторяющихся букв две. Например если в файле: 1a2b3c 1a2b3c То выводит: abc

Нужно переделать вот этот кусок:

for i:=1 to length(p) do
  for j:=i to length(p) do
   if p[i]=p[j+1] then s:=s+p[i];