Дано целое n > 2. Напечатать все простые числа из диапазона [2, n]. (программа Паскаль)

program prak;
uses crt;
var n,k,i:integer;
begin
clrscr;
write('Введите целое число n=');
readln (n);
for i:=2 to n do
if n mod i=0 then n:=n+1;
if n=0 then
writeln('n=',n);
end.