Найти количество положительных двузначных чисел в массиве - PascalABC.NET

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

Написать программу, которая находит количество положительных двузначных чисел в массиве. Написать программу, которая находит первое число в массиве, равное сумме всех предшествующих.

Решение задачи: «Найти количество положительных двузначных чисел в массиве»

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

var
    a: array[1..50] of integer;
    i, pol: integer;
 
begin
    writeln('Массив с элементами [-27;27]');
    for i := 1 to 50 do
    begin
        a[i] := random(54) - 27;
        write(a[i], ' | ');
    end;
    writeln;
    writeln('Все положительные двухзначные числа');
    pol:=0;
    for i := 1 to 50 do 
    begin
        if (a[i] > 9) and (a[i] < 100) then begin
            write(a[i], ' | ');
            pol:=pol+1;
            end;
    end;
    writeln;
    writeln('Количество чисел: ',pol);
end.

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

Объявляются переменные:
- a: массив из 50 целых чисел, значения которого будут в диапазоне от -27 до 27;
- i: счётчик для прохода по элементам массива;
- pol: счётчик для подсчёта положительных двузначных чисел.
Выводится сообщение о массиве и его элементах.
Заполняется массив случайными числами от -27 до 27.
Выводится заполненный массив.
Выводится сообщение о положительных двузначных числах.
Устанавливается начальное значение счётчика положительных двузначных чисел равным 0.
Происходит проход по элементам массива. Если элемент больше 9 и меньше 100, то он выводится и к счётчику прибавляется единица.
Выводится последнее значение счётчика.