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

program DoubleCharFinder;
var myPhrase, myTempPhrase:string ;
 
  phraseLength:integer;
  i, i2:integer;
  find:boolean;
 
 
begin
  myPhrase:='this is a frase.';
  myTempPhrase:=myPhrase;
  phraseLength:= Length(myTempPhrase);
  find:=false;
  for i:=1 to phraseLength do
  begin
    for i2:=i+1 to phraseLength do
    begin
      if (myPhrase [i]=' ') or (myPhrase[i]=',') or (myPhrase[i]='.') then
      begin
        break;
            end;
            if myPhrase[i]=myTempPhrase[i2]then
      begin
        find:=true;
        myTempPhrase[i2]:=' ';
            end;
        end;
    if(find) then
    begin
         WriteLn(myPhrase[i]);
         find:=false;
    end;
        end;
    ReadLn();
    end.

type
  lett = 'a' .. 'z';
var
  myPhrase : string;
  ch : char;
  count : array [lett] of integer;
begin
  myPhrase:='this is a frase.';
  for ch in myPhrase do
    if ch in ['a' .. 'z'] then inc(count[ch]);
 
  for ch in lett do
    if count[ch] > 1 then write(ch);
  readln;
end.