В соревнованиях по бадминтону участвуют n человек. Олимпиадная задача на простые суммы

Program SimpleSum;
 
function Prime(n: integer):boolean;
var m:integer;
begin
m:=Trunc(sqrt(n));
for var i:=2 to m do
begin
if((n mod i)=0) then 
  begin
    result:=false;
    Exit;
  end;
end;
result:=true;
end;
 
 
var n,sum,count,i:integer;
player: array of integer;
player_distributed: array of boolean;
list:string;
begin
read(n);
 
SetLength(player,n);count:=0;SetLength(player_distributed,n);
for i:=0 to n-1 do
  begin
    read(player[i]);
    player_distributed[i]:=false;
  end;
 
 
  i:=0;
while(i<n) do
  begin
    for var j:=i+1 to n-1 do
    if(Not(player_distributed[i])) then
      begin
      sum:=player[i]+player[j];
              if(Not(player_distributed[j]) and Prime(sum)) then
                begin
                  list:=list+player[i].ToString+' '+player[j].ToString+#13#10;
                  count:=count+1;
                  player_distributed[i]:=true;player_distributed[j]:=true;
                end;
      end;
  i:=i+1;  
  end;
 
writeln(count);
writeln(list);