Promedio.. digitos primos ..

[Casimiro Noteví]

Esa función te dice si un número es primo o no.

Código Delphi [-]
function esPrimo(x : integer) : boolean;
var
  i,r : longint;
begin
  r:=round(sqrt(x));
  for i:=2 to r do
    if (x mod i=0) then
    begin
      result:=false;
      exit;
    end;
  result:=true;
end;

Ahora tendrás que adaptarla a tu código