Найти все меньшие n простые числа - PascalABC.NET

var
  i, k, n: integer;
  bln: boolean;
 
begin
  write('n = ');
  readln(n);
  if n < 2 then writeln('Простых чисел не существует')
  else begin
    write('--> ', 2);
    i := 3;
    while i <= n do begin
      bln := true; 
      k := 3;
      while (k * k <= i) and bln do
        if i mod k = 0 then bln := false
        else inc(k, 2);
      if bln then write(' ', i);
      inc(i, 2)
    end
  end;
  writeln
end.