Дано натуральное число , проверить является ли оно простым. pascal

Uses crt;
 var i,n,p,k:integer;
 begin
 clrscr;
 readln(n);

for i:=2 to n div 2 do
    if (n mod i = 0) then inc(k);
     if k =0 then writeln('simple')
    else writeln('not simple');

readln
 end.