Prašau pagalbos su fps

Sveiki,norėčiau paprašyti pagalbos turiu tokį uždavinį su fps: sudarykite programą kuri rašytų visus pirminius skaičius nuo 1 iki 1000. Vartokite while ir for ciklus. jei kas turite minčių kaip tai padaryti bučiau dėkingas jei pasidalintumėte su manimi. čia forume arba per skype. Mano skype nick smokizzz. Iš anksto ačiū už pagalbą.

Pirminis skaičius yra tas skaičius, kuris dalinasi tik iš savęs ir iš vieneto. Taigi yra du galimi dalikliai. Imi skaičių ir dalini jį iš visų galimų variantų for i:=1 to skaičius do begin skaičius mod i = x; if x = 0 then daliklis := daliklis + 1; end; ciklo pabaiga. If daliklis > 2 then write (skaičius, ' ') {Išvedami visi skaičiai}. Visą šitą suki 1000 kartų kaskart darydamas skaičius := skaičius + 1.

program Bevardė0;
 var a,b,c:integer;
begin
 for a:=2 to 1000 do begin
  c:=0;
  for b:=1 to a do
 if a mod b = 0 then
  c:=c+1;
  if c<3 then writeln(a);
  end;
end.

Aciū visiems. Tikrai labai padėjot <_<