Заполнить целочисленный массив из 15 элементов первыми простыми числами

var
  A: array[1..15] of integer;
  N, i, k: integer;
  f: boolean;
  
begin
  writeln('Первые 15 протых чисел:');
  writeln;
  a[1] := 2;
  k := 1;
  N := 3;
  repeat
    i := 3;
    f := true;
    while i <= round(sqrt(N)) do 
      if N mod i <> 0 then inc(i, 2)
      else begin f := false; break end;
    if f then begin inc(k); a[k] := N end;
    inc(N, 2)
  until k = 15;
  for k := 1 to 15 do write(' ', a[k])
end.

const
  n = 15;
var a : array[1..n] of word;
  i, m, k : word;
 
function isPrime(num : word) : boolean;
var j : word;
begin
  isPrime := true;
  for j := 2 to (num - 1) do
    if num mod j = 0 then 
    begin
      isPrime := false;
      break
    end
end;
 
begin
  k := 0;
  m := 2;
  for i := 1 to 15 do
  begin
    while k < i do
    begin
      if isPrime(m) then
      begin
        a[i] := m;
        inc(m);
        write(a[i]:4);
        inc(k)
      end
      else
      begin
        inc(m);
        continue
      end
    end    
  end
end.

var
  A: array[1..15] of integer;
  N, i, k: integer;
  f: boolean; {f = true - число простое
               f = false число составное}
  
begin
  writeln('Первые 15 протых чисел:');
  writeln;
  a[1] := 2; //минимальное простое число
  k := 1;
  N := 3; //минимальное нечетное простое число
  repeat
    i := 3; //минимальный нечетный делитель
    f := true; //сначала считаем число N простым
    while i <= round(sqrt(N)) do 
    {ели N не делится на i, то увеличиваем делитель i на 2: }
      if N mod i <> 0 then i := i + 2
      else //иначе
      begin 
        f := false; //число составное
        break //и сразу выходим из цикла
      end;
    if f then //если число простое
    begin 
      inc(k); //то номер чисела увеличиваем на 1
      a[k] := N //присваиваем k-му номеру число N
    end;
    N := N + 2  //увеличиваем число на 2
  until k = 15; //и так до тех пор пока номер числа = 15
 { Выводим найденные простые числа: } 
  for k := 1 to 15 do write(' ', a[k])
end.