Вычислить среднее арифметическое - Pascal (80804)

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

доброго времени суток! пожалуйста помогите написать код для данной задачи. буду безумно благодарна Даны натуральное число n, целочисленный массив а[n]. А. Вычислить среднее арифметическое а[1], …, а[n]; B. Определить 5 кратных и 7 некратных элементов массива

Решение задачи: «Вычислить среднее арифметическое»

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

var
    ar: Array[Byte] Of ShortInt;
    i, n: Byte;
    sum: Integer;
begin
    repeat
        Write('Input n (>0)=');
        ReadLn(n);
    until (n > 0);
    Randomize();
    sum := 0; Write('Original array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
        Inc(sum, ar[i]);
    end;
    WriteLn; WriteLn('AVR=', (sum / n):0:3);
    Write('5:');
    for i := 0 to n - 1 do
        if (ar[i] mod 5 = 0)
        then
            Write(ar[i]:4);
    WriteLn;
    Write('7:');
    for i := 0 to n - 1 do
        if (ar[i] mod 7 <> 0)
        then
            Write(ar[i]:4);
end.

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

Объявляется массив ar типа Array[Byte] Of ShortInt для хранения чисел, переменные i и n типа Byte для управления циклами и переменная sum типа Integer для сохранения суммы элементов массива.
Пользователю предлагается ввести число n (количество элементов массива) до тех пор, пока оно не будет больше 0.
Генерируется случайное значение для каждого элемента массива и вычисляется сумма всех элементов массива.
Выводится исходный массив.
Вычисляется среднее арифметическое элементов массива и выводится на экран.
Выводятся все элементы массива, которые делятся на 5 без остатка.
Выводятся все элементы массива, которые не делятся на 7 без остатка.