Помогите с задачей по паскалю 8 класс

Помогите сделать такую же задачу (которая определяет составное или простое число) только с while?

var a,n,k: integer;

begin

write('vvedite chislo ');

readln(n);

if (n=1) or (n=0) then write( n, ' ne sostavnoe i ne ');

for a:=2 to n div 2 do

if n mod a=0 then k:=k+1;

if k=0 then write('prostoe')

else writeln('sostovnoe');

end.