Определить зачетную оценку спортсмена по его оценкам, содержащимся в массиве - Free Pascal

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

В состязаниях выступления спортсменов оцениваются девятью судьями; a1,…, a9 – оценки, вы-ставленные судьями одному из участников. Итоговая оценка, которая идет в зачет, формируется следу-ющим образом: из всей совокупности оценок удаляются наиболее высокая и наиболее низкая (если таких оценок несколько, удаляется одна), для оставшихся вычисляется среднее арифметическое. Определить зачетную оценку спортсмена по его оценкам, содержащимся в массиве А.

Решение задачи: «Определить зачетную оценку спортсмена по его оценкам, содержащимся в массиве»

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

                            var
    ar: Array Of Byte;
    i, n, iMin, iMax: Byte;
    sum: Word = 0;
begin
    repeat
        Write('Enter marks quantity (>2): ');
        ReadLn(n);
    until (n > 2);
    iMin := 0; iMax := 0;
    SetLength(ar, n);
    Randomize(); Write('Random marks:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(101);
        Write(ar[i]:4);
        if (ar[i] < ar[iMin])
        then
            iMin := i;
        if (ar[i] > ar[iMax])
        then
            iMax := i;
        Inc(sum, ar[i]);
    end;
    WriteLn;
    Write('AVR=', ((sum - ar[iMin] - ar[iMax]) / (n - 2)):0:3);
end.
                        