замените for на while, чтобы алгоритм работал также:
program Prostoe;
var i,N,k: integer;
begin
write('введите число: ');
readln(N);
k:=0;
for i:=2 to N div 2 do
if N mod i =0 then k:=k+1;
if k=0 then write('простое')
else writeln('не простое');
readln;
end.

также

обязательным параметром является i = i + 1

Тк цикл будет бесконечным без него

#С языком не знакомВообщем объясню в крациях по понятному мне языку -i = 0while i <= 10 do --tutendПод это подстрой свой скрипт.