Сформулировать массив простых чисел не больших заданного натурального числа N — Pascal(Паскаль)

function isprime(n:integer): boolean;
var
   i:integer;
begin
 isprime:=false;
 if (odd(n)=false) and (n<>2) then exit;
 i:=3;
 while (i<=trunc(sqrt(n))) do 
  begin
   if (n mod i=0) then exit;
   inc(i,2);
  end;
 isprime:=true;
end;

var
i,n:integer;
begin
writeln('Vvedite chislo');
readln(n);
writeln('Itogo');
for i:=1 to n do
 if isprime(i) then writeln(i);

end.