Отсеить строки где символ встречается больше 2 раз и вывести строку, прошедшую проверку

var
  arrchar:Array [1..66] of char;
 
function match(ch:char;str:string):integer;
var i,count:integer;
begin
    count:=0;
    for i:=1 to length(str) do
        if str[i]=ch then count:=count+1;
    match:=count;
end;
 
function matchstr(str:string):boolean;
var i,matching:integer; b:boolean;
begin
    b:=false; matching:=0;
    for i:=1 to length(str) do begin
        if match(str[i],str)>2 then b:=true;
    end;
    matchstr:=b;
end;
 
var i,count:integer; ch:char;
    r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14, r15, r16, r17, r18, r19, r20, r21, r22, r23, r24:integer;
    str:string;
    percent:real;
begin
    count:=0;
    percent:=0;
    str:='123';
   for ch:='a' to 'z' do arrchar[ord(ch)-96]:=ch;
   for ch:='A' to 'Z' do arrchar[ord(ch)-38]:=ch;
   for ch:='0' to '9' do arrchar[ord(ch)+5]:=ch;
 
   for r1:=1 to 62 do
   for r2:=1 to 62 do
   for r3:=1 to 62 do
              begin
                  str[1]:=arrchar[r1];
                  str[2]:=arrchar[r2];
                  str[3]:=arrchar[r3];
 
                  if not(matchstr(str)) then
                      begin
                        WriteLn(str);
                        count:=count+1;
                      end;
 
                  percent:=percent+100/power(62,3);
                  WriteLn(percent);
              end;
end;