Почему у меня не выводит массив

CONST
  N = 20;  
TYPE
  DataArray = ARRAY[1..N] OF INTEGER; 
PROCEDURE ReadElements(A, B: DataArray);
 
IMPLEMENTATION 
PROCEDURE ReadElements(A, B: DataArray);
VAR
  I, COUNT: INTEGER;
BEGIN
  WRITELN('Элементы массивы: ');
  FOR I := 1 TO N DO
  BEGIN
    A[I] := RANDOM(10,99);
    WRITE(A[I], ' ');
  END;  
  WRITELN();
  COUNT := 0;
  FOR I := 1 TO N DO
    IF (A[I] DIV 10 = 0) THEN 
    BEGIN
      B[COUNT]:= A[I];
      COUNT := COUNT + 1;
    END;
 
  WRITELN('ВЫБРАННЫЕ ЭЛЕМЕНТЫ:');
  FOR I := 1 TO COUNT DO
    WRITELN(B[I], ' ');
END;  
 
BEGIN
END.

uses System;
 
/// Creates the randomly filled array
function CreateRandomIntegerArray(count, low, high: integer): array of integer;
begin
  if count < 0 then
    raise new ArgumentOutOfRangeException('count', 'Elements count can not be less than 0.');
  
  Result := new integer[count];
  var _random := new Random();
  for var i := 0 to count - 1 do
    Result[i] := _random.Next(low, high);
end;
 
/// Filters the sequence by some predicate
function Filter<T>(self: sequence of T; _predicate: Predicate<T>): sequence of T; extensionmethod;
begin
  if self = nil then
    raise new ArgumentOutOfRangeException('self', 'Sequence can not be nil.');
  if _predicate = nil then
    raise new ArgumentOutOfRangeException('_predicate', 'Predicate can not be nil.');
  
  foreach var item in self do
    if _predicate(item) then
      yield item;
end;
 
begin
  // Указываем диапазон 10..100, поскольку объект класса Random не включает верхнюю границу
  // в диапазон генерируемых случайных чисел.
  var a := CreateRandomIntegerArray(10, 10, 100).Filter(x -> x mod 10 = 0).ToArray();
end.

CONST
  N = 20;  
TYPE
  DataArray = ARRAY[1..N] OF INTEGER; 
 
PROCEDURE ReadElements(A, B: DataArray);
VAR
  I, COUNT: INTEGER;
BEGIN
  WRITELN('Элементы массивы: ');
  FOR I := 1 TO N DO
  BEGIN
    A[I] := RANDOM(10,99);
    WRITE(A[I], ' ');
  END;  
  WRITELN();
  COUNT := 0;
  FOR I := 1 TO N DO
    IF (A[I] DIV 10 = 0) THEN 
    BEGIN
      B[COUNT]:= A[I];
      COUNT := COUNT + 1;
    END;
 
  WRITELN('ВЫБРАННЫЕ ЭЛЕМЕНТЫ:');
  FOR I := 1 TO COUNT DO
    WRITELN(B[I], ' ');
END;  
 
 var a,b:DataArray;
 
BEGIN
 
ReadElements(a,b);
 
END.

PROCEDURE ReadElements(A, B: DataArray);
...
Begin
...
end;