Intervalo primos

program intervaloPrimos;
var x,y,num,divisor,cont: integer;
begin
  write('Digite o primeiro número do intervalo: '); readln(x);
  write('Digite o segundo número do intervalo: '); readln(y);
  for num:=x to y do
	  begin
	    cont:=0;
	    for divisor:=num downto 1 do
			  if num MOD divisor = 0 then
				  cont:=cont+1;
			if cont = 2 then writeln(num,' é primo')
			else writeln(num,' não é primo');		 
	  end;
end.