Вывести количество чисел: отрицательных, нулей, принадлежащих диапазону [1..1024] - Free Pascal

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

Пользователь вводит n чисел.Вывести количество введенных отрицательных ,равных 0 , и в диапазоне от 1 до 1024. После этого если вводится символ "J" или "L", случится выход из программы, или -- исполнение программы повторяется.

Решение задачи: «Вывести количество чисел: отрицательных, нулей, принадлежащих диапазону [1..1024]»

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

var
  n, e, kn, k0, kr: Integer;
  c: Char;
begin
  repeat
    Write('N: '); Read(n);
    kn:=0; k0:=0; kr:=0;
    for n:=1 to n do begin
      Read(e);
      if e<0 then Inc(kn)
      else if e=0 then Inc(k0)
      else if e<=1024 then Inc(kr);
    end;
    WriteLn('<0: ',kn,'  =0: ',k0,'  [1..1024]: ',kr);
    repeat
      Write('Продолжить? (J - нет, L - да): '); ReadLn(c);
    until c in ['J','j','L','l'];
  until c in ['J','j'];
end.

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

Объявлены переменные: n, e, kn, k0, kr (целые числа) и c (символьный тип).
Входим в цикл повторения.
Запросить у пользователя ввод числа n.
Инициализируем счетчики kn, k0, kr значением 0.
Запускаем цикл for для перебора чисел от 1 до n.
В каждой итерации цикла считываем число e.
Проверяем знак числа e: если e < 0, то увеличиваем значение kn на 1.
Проверяем равно ли e нулю: если e = 0, то увеличиваем значение k0 на 1.
Проверяем, принадлежит ли число e диапазону от 1 до 1024: если e <= 1024, то увеличиваем значение kr на 1.
Записываем значения счетчиков в файл или на экран.
Запускаем цикл повторения, пока пользователь не введет 'J' или 'j'.
Цикл повторения завершается, если введено 'J' или 'j'.
Программа завершается.