Выяснить, какое число встречается в таблице раньше - положительное или отрицательное - Pascal ABC

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

Дана линейная таблица, которая содержит N действительных чисел. Выяснить, какое число встречается в таблице раньше - положительное или отрицательное. Если все элементы нулевые, то сообщить об этом.

Решение задачи: «Выяснить, какое число встречается в таблице раньше - положительное или отрицательное»

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

Var A:array[1..100] of real;
    i,n,j:byte;
Begin
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
      write('введите A[',i,']-ый элемент: ');readln(a[i]);
    End;
    i:=0;j:=0;
    While (i<n)and(j=0) do
    Begin
      inc(i);
      if A[i]<0 then j:=1
       else if A[i]>0 then j:=2;
    End;
    Case j of
      0:writeln('Одни нули');
      1:writeln('Отрицательное встречается первее');
      2:writeln('Положительное встречается первее');
    End;
    readln;
End.

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

Объявлены переменные: A (массив), i (счетчик), n (размерность), j (счетчик).
Пользователю предлагается ввести размерность массива.
В цикле происходит заполнение массива A с помощью ввода пользователем.
Установлены начальные значения счетчиков i и j равными нулю.
В цикле происходит проверка: при i<n выполняется проверка на ноль, на положительность и на отрицательность значения элемента массива A[i].
Если A[i] отрицательное, то значение j становится равным 1.
Если A[i] положительное, то значение j становится равным 2.
Если A[i] равно нулю, то значение j остается равным нулю.
Цикл выполняется до тех пор, пока i меньше n и j равно нулю.
Увеличивается значение i на единицу.
Если значение j равно нулю, то выполняется вывод на экран соответствующего сообщения в зависимости от значения j.
Запрос на ввод с клавиатуры для завершения работы программы.