Вычисление обобщённых характеристик массива (Паскаль)

Инициализация переменных

Var i, N, max, min, sum, K: integer;
mas: array [1 .. 10] of integer;

Минимальный элемент

for i := 1 to N do begin
     if (mas [i] ＜ min) then
           max := mas [i];

     i := i + 1;
end;

Среднее арифметическое элементов

for i := 1 to N do

       sum := sum + mas [i];
sum := sum / N;

Медиана с чётным количеством членов

K := N / 2;
write ((mas [i] + mas [K + 1]) / 2);