Массив: найти все простые числа от 1 до n (n - входные данные)

uses
  crt;
 
const
  m = 1000; // Для задания максимального размера массива.
 
var
  n, i, k, j: integer;
  a: array[1..m] of integer;
 
begin
  clrscr;
  read(n); // Задаем размер массива.
  for i := 1 to n do
    read(a[i]); // Заполняем массив.
  
  for i := 1 to n do
  begin
    for j := 1 to a[i] do
      if a[i] mod j = 0 then inc(k); // Проверяем количество целых делителей.
    if k = 2 then writeln(a[i]);
    k := 0;
  end;
  readkey;
end.

  for i := 1 to n do //Мы будем проверять каждое число от 1 до N
  begin
    for j := 1 to a[i] do // Число простое-число, у которого только два множителя 1 и оно само, следовательно чтобы узнать простое число, или нет, то нужно найти кол-во его множителей. Множители будем проверять от 1 до a[i]
      if a[i] mod j = 0 then inc(k); // Компьютер сравнивает, является ли j множителем числа, если да то, k увеличивается на 1 ( inc(k) = k:=k+1 )
    if k = 2 then writeln(a[i]); //Как говорилось ранее, тут два множителя, а следовательно это число простое, значит его выводим
    k := 0;// Зануляем к для последующей работы с ним
  end;
  readkey; //Эта процедура имеется только в uses crt, тоесть она ждет пока вы нажмете кнопку,только потом она выключает программу