Skaičių sekos uždavinys

Bandau išspęsti šitokia programa, manau viena maža klaidelė maišo viską, galite padėti, ačiū.

Duota natūraliųjų skaičių seka. Kiek sekoje skaičių – nežinoma. Sekos pabaigos požymis – skaičius nulis. Parašyti programą, kuri: nustatytų, kuris skaičius pirminis, kuris ne.

program sekosLyginisNelyginis;

var sk,i,d,pirm,nepirm:integer;

begin

WriteLn('Ávesti seka');

Read(sk);

pirm:=sk;

nepirm:= sk;

While sk<>0 do

begin

d:=0;

For i:=1 to sk do

If sk mod i =0 then

d:=d+1;

end;

If d=2 then writeln('pirminiai yra ',pirm)

else writeln('nepirminiai yra ',nepirm);

read;

end.

While viduj nenuskaitai sekančio skaičiaus.

Toks jausmas, kad nori, jog kažkas už tave padarytų programą, nes čia net nelogiškas kodas pateiktas.

Prasuki while, pabaigoj spausdini writeln('pirminiai yra ',pirm).

Tai tau išspausdins tavo paskutinę reikšmę. Naudok masyvus tada ir dėk į juos reikšmes, jei nori pabaigoj, kad išspausdintų visus pirminius.

Nelabai pamenu pascalio sintaksės ir neturiu compilerio, bet gal užvesiu ant kelio kaip ką daryti...

program programa;

function ArPirminis(sk:integer):boolean;
var i:integer;
begin
if (sk <= 1) then ArPirminis := false else
if ((sk == 2) || (sk == 3)) then ArPirminis := true else
	begin
	i := 5;
	while (i <= trunc(sqrt(sk))) do
		begin
		if (sk mod i == 0) then ArPirminis := false;
		i += 2;
		end;
	end;
ArPirminis := true;
end;

var i, sk:integer;
Begin
readln(sk);
while (sk != 0) do	
begin
if (ArPirminis(sk) == true) then writeln(sk, " Pirminis skaicius") 
                            else writeln(sk, " Sudetinis skaicius");
readln(sk);
end;
End.