Задача Pascal ABC, срочно нужна помощь! Опции

[Zest]

Задача:Ввести последовательность случайным образом N=12 из диапазона -25 25.Упорядочить данную последовательность по убыванию последней цифры и вычислить среднее арифметическое всех однозначных чисел.
Надо сделать следующее:вычислить среднее арифметическое всех однозначных чисел.
1-ая половина:var
A: array [1..12] of integer;
i, j, n, temp,e,d: integer;
b:real;


begin
randomize();
n := 12;
for i := 1 to n do
begin
A[i] := random(25);
write(A[i], ' ');
end;

for j := 1 to n - 1 do
begin
for i := 1 to n - j do
begin
if a[i] mod 10 < a[i + 1] mod 10 then begin
temp := a[i];
a[i] := a[i + 1];
a[i + 1] := temp;
end;
end;
end;

writeln();
for i := 1 to n do
write(A[i], ' ');