Найти и вывести среднее арифметическое всех элементов массива, оканчивающихся цифрой 5

Program task;
var a: array of integer;
    n: integer;
 
function getAverage(a: array of integer; size: integer): real;
var i: integer;
    res: real;
    amount: integer;
begin
  res := 0;
  amount := 0;
  for i := 0 to size-1 do
  begin
    if (a[i] mod 10 = 5) then
    begin
      res := res + a[i];
      inc(amount);
    end;
  end;
  getAverage := res / amount;
end;
procedure input();
var i: integer;
begin
  write('Enter the size of array: ');
  readln(n);
  setLength(a, n);
  write('Enter ', n,' integer numbers: ');
  for i := 0 to n-1 do
  begin
    read(a[i]);
  end;
end;
procedure outputArray(a: array of integer; size: integer);
var i: integer;
    sep: string = '';
begin
 for i := 0 to size-1 do
 begin
  write(sep, a[i]);
  sep:=', ';
 end;
 writeln;
end;
 
BEGIN
  input();
  writeln('Your array: ');
  outputArray(a,n);
  writeln('Average of numbers that ends with 5: ', getAverage(a,n):0:3);
END.

const
  N = 10;
 
var
  A: array [0..N - 1] of integer;
  Count, Sum: integer;
 
begin
  for var i := 0 to N - 1 do
  begin
    Readln(A[i]);
    if Abs(A[i]) mod 10 = 5 then
    begin
      Inc(Sum, A[i]);
      Inc(Count);
    end;
  end;
  WritelnFormat('Среднее арифметическое равно {0}.', Sum / Count);
end.

  a[0]:=High(Integer) div 10+5;
  a[1]:=a[0];

const
  N = 10;
 
var
  A: array [0..N - 1] of integer;
  Count: integer;
  Average: real;
 
begin
  for var i := 0 to N - 1 do
  begin
    Readln(A[i]);
    if Abs(A[i]) mod 10 = 5 then
    begin
      Inc(Count);
      if Count > 1 then
        Average := (Average + A[i]) / 2
      else
        Average := A[i];
    end;
  end;
  
  if Count > 0 then
    WritelnFormat('Среднее арифметическое равно {0}.', Average)
  else
    Writeln('Элементов, удовлетворяющих условию не найдено.');
end.