Найти медиану в массиве 15 случайных чисел от 0 до 10 в паскале, спс

var mas: array[1… 16] of integer; i,k: integer; begin randomize; for i: =1 to 15 do begin mas[i]: =random (11); write (',mas[i],'); end; writeln; for k: =1 to 15 do begin for i: =1 to 15 do if mas[i]>mas[i+1] then swap (mas[i],mas[i+1]); end; writeln ('Медиана массива равна ',mas[9]); end.