Найти медиану в массиве 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.