Последовательность преобразовать так, чтобы в начале находились числа, которые больше заданной величины

program z;
var max,min,s,i,j,t:integer
     x:array[1..11]of integer;
begin
for i:=1 to 11 do
readln(x[i]);
min:=x[1];
max:=x[1];
for i:=1 to 11 do
  if max<x[i] then max:=x[i] else 
     if min<x[i] then min:=x[i];
s:=(min+max)/2;
for i:=1 to 11 do
  for j:=1 to 10 do
   if x[j]<x[j+1] then Begin
   t:=x[j];
   x[j]:=x[j+1];
   x[j+1]:=t;
   end;
for i:=1 to 11 do 
  write(x[i]:5);
writeln;
end.

program z;
var max,min,s,i,j,k:integer
     x,m:array[1..11]of integer;
begin
for i:=1 to 11 do
readln(x[i]);
min:=x[1];
max:=x[1];
for i:=1 to 11 do
  if max<x[i] then max:=x[i] else 
     if min<x[i] then min:=x[i];
s:=(min+max)/2;
 
i:=1;
j:=11;
for k:=1 to 11 do
  if x[k]>=s then Begin
  m[i]:=x[k];
  inc(i);
  end else begin
  m[j]:=x[k];
  dec(j)
  end;
 
for i:=1 to 11 do 
  write(m[i]:5);
writeln;
end.

program z;
type tm:array[1..11]of integer;
var max,min,s,i,j,k:integer
     x:tm
 
Procedure extr1(Var x:tm;Var max,min:integer);
Var i:integer;
Begin
min:=x[1];
max:=x[1];
for i:=1 to 11 do
  if max<x[i] then max:=x[i] else 
     if min<x[i] then min:=x[i];
End;
 
procedure razd(Var x:tm;s:integer);
Var i,j,k:integer;
     m:tm;
begin
i:=1;
j:=11;
for k:=1 to 11 do
  if x[k]>=s then Begin
  m[i]:=x[k];
  inc(i);
  end else begin
  m[j]:=x[k];
  dec(j)
  end;
for k:=1 to 11 do
  x[k]:=m[k];
end;
 
begin
for i:=1 to 11 do
readln(x[i]);
extr1(x,max,min);
s:=(min+max)/2;
razd(x,s); 
for i:=1 to 11 do 
  write(x[i]:5);
writeln;
end.