Составить программу генерации последовательности простых чисел, не превышающих заданного числа N. Простым числом называется целое положительное число, которое делится без остатка только на единицу и на само себя- Pascal(Паскаль)

uses crt;
function Prost(a:integer):boolean;{функция определения простого числа}
var i:integer;
    f:boolean;
begin
if a<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while (i<=round(sqrt(a)))and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
var n,i:integer;
begin
clrscr;
write('Введите натуральное число N=');
readln(n);
writeln('Простые числа на интервале 2 - ',n-1);
for i:=2 to n-1 do
if Prost(i) then write(i,' ');
readln
end.