Написать программу для нахождения количества всех элементов целочисленного массива, которые не являются положительными двузначными числами- Pascal(Паскаль)

program NonPositiveTwoDigitNumbers;

const
  arraySize = 20;

type
  TIntArray = array[1..arraySize] of Integer;

var
  arr: TIntArray;
  i, count: Integer;

procedure FillArray(var a: TIntArray);
begin
  for i := 1 to arraySize do
    a[i] := Random(200) - 100; // Заполняем массив случайными числами от -100 до 99
end;

procedure PrintArray(a: TIntArray);
begin
  for i := 1 to arraySize do
    Write(a[i]:5);
  Writeln;
end;

function CountNonPositiveTwoDigitNumbers(a: TIntArray): Integer;
var result:integer;
begin
  result := 0;
  for i := 1 to arraySize do
    if (a[i] < 10) or (a[i] > 99) then // Если число не является положительным двузначным
      Inc(result);
  CountNonPositiveTwoDigitNumbers:= result;
end;

begin
  Randomize;
  FillArray(arr);
  Writeln('Исходный массив:');
  PrintArray(arr);
  count := CountNonPositiveTwoDigitNumbers(arr);
  Writeln('Количество элементов, которые не являются положительными двузначными числами: ', count);
  ReadLn;
end.