Ciklas cikle FPS 0.6.4 a

Sveiki, gal galit kas paaiškinti kaip reikia daryti šią užduotį? Aš bandžiau taip (bet turbūt nesąmonė čia totali :/):

program ketvirta;
   var m,n,j,i,pradinis,s:integer;
begin                       //Kiek iš natūraliųjų skaičių intervalo [m,n] yra pirminių skaičių? Atspausdinti juos.
 WriteLn('Įveskite pradinę ir galutinę intervalo reikšmę: ');
 readln(m,n);
   for i:= m to n do
       begin
           for j:= m to i do
               pradinis:= j div i;
               if  j mod i = 0 then s:=s+1
                               else
       end;
   WriteLn(pradinis);
 Readln;
end.

Užduotis tokia: Kiek iš natūraliųjų skaičių intervalo [m,n] yra pirminių skaičių? Atspausdinti juos. Na gal padės ir ant kelio užvedimas. Pirminis skaičius yra tas, kuris dalijasi iš 1 ir iš savęs, ir kitų daliklių neturi, bet kaip išskaidyt tą intervalą, ir kaip sužinot ar tas skaičius iš intervalo turi tik 1 daliklį t.y. patį save (na 1-tas gali būti lengvai panaikinamas su if'u)? Dėkoju už bet kokią informacija :)).

program ketvirta;
   m, n, j, i, s: integer;
 pradinis: Boolean;
begin                       //Kiek iš natūraliųjų skaičių intervalo [m,n] yra pirminių skaičių? Atspausdinti juos.
 WriteLn('Įveskite pradinę ir galutinę intervalo reikšmę: ');
 readln(m, n);
 s := 0;
 for i := m to n do
 begin
   pradinis := true;
   for j := m to i - 1 do
     if i mod j = 0 then
     begin
       pradinis := false;
       break;
     end;
   if pradinis then
   begin
       WriteLn(i);
       s := s + 1;
   end;
 end;
 WriteLn(s);
 readln;
end.

Dėkui, ateity pažiūrėsiu, kai mokysimės su false.

program programa;
var   i, j,
m, n, Pk:integer;
pirminis:boolean;
begin
Pk := 0;
for i:=m to n do
begin
pirminis := true;
for j:=2 to floor(sqrt(i))+1 do
	if (i mod j == 0) pirminis := false;
if pirminis then Pk++;
end;
end.