Ayuda con numeros primos

[Jcn]

Hola, necesito ayuda con este programa para que sume numeros primos entre dos limites pedidos, la cual tiene un error.

Código Delphi [-]
type
  positivo=0..MaxInt;

var
  suma,factor,numero,min,max: positivo;
  primo:Boolean;
begin
  readln(min,max);
  suma:=0;
  for numero:= min to max do
  begin
    {aqui esta el error}
    IF (numero) mod 2= 0 and (numero<>2 then
       primo:=False
    else
    begin
      factor:=3;
      primo:=True;
      repeat
        if (numero mod factor)=0 then
          primo:=False
        else
          factor:=factor+2
      until factor>Sqrt(numero) or primo = False;
    end;
    if primo then
      suma:=suma+numero;
  end;
  write('la suma es ',suma);
  Readln;
end.