Необходимо выполнить условия поставленные задачей (сортировка массивов)

writeln('Медиана=',a[m+1])

const max=50;
var m,i,k,p,a:integer;
    x:array[1..2*max+1]of integer;
begin
randomize;
repeat
write('Введите размер половины массива от 1 до ',max,' m=');
readln(m);
until m in [1..max];
for i:=1 to 2*m+1 do
 begin
  x[i]:=-9+random(19);
  write(x[i]:4);
 end;
writeln;
for k:=1 to 2*m do
for i:=1 to 2*m+1-k do
If x[i]>x[i+1] then
 begin
  a:=x[i];
  x[i]:=x[i+1];
  x[i+1]:=a
 end;
writeln('Отсортированный массив');
for i:=1 to 2*m+1 do
write(x[i]:4);
writeln;
writeln('Медиана=',x[m+1]);
end.

const nmax=100;
var a:array[1..max] of integer;
    n,i,j:byte;
    x:integer;
begin
randomize;
repeat
write('Размер массива до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-9+random(19);
  write(a[i]:4);
 end;
writeln;
for i:=2 to n do
 begin
  x:=a[i];
  j:=i-1;
  while (j>=1) and (a[j]>x) do
   begin
    a[j+1]:=a[j];
    j:=j-1;
   end;
  a[j+1]:=x;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i]:4);
end.