Randomized-select

type
  mass = array[1..100] of integer;
 
function partition(a: mass; p, r: integer): integer;
var
  i: integer;
begin
  i := random(r, p);
  var x := a[i];
  a[i] := a[r];
  a[r] := x;
  partition := partition(a, p, r);
end;
 
 
function select(a: mass; p, r, i: integer): integer;
var
  q, k: integer;
begin
  if p = r then result := a[p];
  q := partition(a, p, r);
  k := q - p + 1;
  if i <= k then
    select(a, p, q, i)
  else select(a, q + 1, r, i - k);
end;
 
 
var
  b: mass;
  x, i: integer;
 
begin
  writeln('размер маасив');
  readln(x);
  for i := 1 to x do 
  begin
    b[i] := random(15);
    write(b[i], ' ');
  end;
  write(select(b, x, 1, 1));
end.

function Partition(p, r: longint): longint;//вроде как сортируем ту часть что выбрали
var
  i, j: longint;
begin
  
  i := p - 1;//собственно начало
  j := r + 1;//собственно конец
  while TRUE do //вечный цикл
  begin
    repeat 
      j := j - 1;
      if j<p then j:=p;
    until (z[j] <= z[p]) or (j <= p);//идём по массиву пока не найдём 
        //элемент меньше z[p]
    repeat 
      i := i + 1;
      if i>r then i:=r;
    until (z[i] >= z[p]) or (i >= r);//идём по массиву пока не найдём 
    //элемент больше z[p]
    if i < j   then swap(z[i], z[j])//если z[i] левее z[j] то меняем их местами
    else begin Partition := j;exit; end;//иначе возвращаем значение
  end;
end;