Нк работает цикл - PascalABC.NET

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
program zadanie25;
const
  n = 4;
var
  a: array [1..N] of integer;
  i, j, k:integer;
begin
  for i := 1 to N do
    readln(a[i]);
  if a[i] > 2
    then a[i] := a[i]
    else begin
           writeln('Число должно быть больше нуля');
           readln(a[i]);
         end; 
  writeln(a);
end.

допустим ввожу 1, то мое условие игнорируется и число 1 вносится в массив, как быть?

Решение задачи: «Нк работает цикл»

Листинг программы

const
  n = 4;
var
  a: array [1..N] of integer;
  i:integer;
begin
  writeln('Введите ',N,' положительных чисел');
  for i := 1 to N do
  repeat
   readln(a[i]);
   if a[i] < 1 then  writeln('Число должно быть больше нуля');
  until a[i]>0;
writeln('Введенный массив');
for i:=1 to N do
write(a[i],' ');
end.

Объяснение кода листинга программы

В коде используется язык программирования PascalABC.Net.
Задачей программы является проверка ввода пользователем массива из n положительных чисел.
В начале кода объявляются две переменные: n и a.
Переменная n содержит количество элементов в массиве, а переменная a - сам массив.
С помощью цикла for программа просит пользователя ввести n положительных чисел.
Если число меньше 1, то выводится сообщение об ошибке.
После завершения цикла, программа выводит на экран введенный массив.