Вычислить к-тое число последовательности целых простых чисел

program simpl;
 
function simple(N: integer): boolean;
var i: integer;
begin
  if n < 2
    then simple := False
    else begin
      simple := True;
      for i := 2 to trunc(sqrt(N)) do
      if N mod i = 0
        then begin
          simple := False;
          break
        end
    end
end;
 
var k, n, i: integer;
 
begin
  repeat
    write('k = ');
    readln(k);
    if k < 1 then writeln('Error: k < 1, reenter.')
  until k >= 1;
  i := 0;
  n := 1;
  while i < k do
    begin
      n := n + 1;
      if simple(n) then i := i + 1
    end;
  writeln('Simple number #', k, ' = ', n);
  readln
end.

program simpl;
 
function simple(N: integer): boolean;
var i: integer;
begin
  if n < 2
    then simple := False
    else begin
      simple := True;
      for i := 2 to trunc(sqrt(N)) do
      if N mod i = 0
        then begin
          simple := False;
          break
        end
    end
end;
 
const m = 1000;
 
var k, n, i: integer;
    a: array [1..m] of integer;
 
begin
  repeat
    write('k = ');
    readln(k);
    if (k < 1) or (k > m) then writeln('Error: k out of range [1..', m, '], reenter.')
  until (k >= 1) and (k <= m);
  i := 0;
  n := 1;
  while i < k do
    begin
      n := n + 1;
      if simple(n) then
        begin
          i := i + 1;
          a[i] := n
        end;
    end;
  writeln('Simple number #', k, ' = ', a[k]);
  writeln('All k simple numbers:');
  for i := 1 to k do
    begin
      if (i - 1) mod 5 = 0 then writeln;
      write(a[i]:10)
    end;
  readln
end.