برنامه تشخیص اعداد اول در پاسکال

[blaster-777]

سلام

برنامه زیر برای تشخیص اول بودن یا نبودن یک عدده
اما مشکل داره و جواب نمیده
کسی میدونه مشکلش کجاست؟
فلوچارتشو هم میتونید تو عکس ضمیمه ببینید


var

i,n,k:integer;

begin

i:=2;
k:=0;
read(n);

if i<=n div 2 then

if n mod i=0 then
k:=1
else
i:=i+1

else

if k=0 then
write('prime')
else
write('no prime')

end.

[عقاب سیاه]

فکر میکنم باید این جوری پیاده سازی شه :

var

i, n, k: integer;

begin

k := 0;
read(n);

for i := 2 to n div 2 do

if n mod i = 0 then
k := 1


if k = 0 then
write('prime')
else
write('no prime');

Readln(n);

شما اون قسمت حلقه را پیاده سازی نکردی.