Помогите пожалуйста. Дано натуральное число , проверить является ли оно простым. 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.