Сортировка одномерных масивов

const n=20; m=10;
var
  a:array[1..n] of integer;
  b:array[1..m] of integer;
  i,j,c:integer;
begin
  randomize;
  write('Первый массив: ');
  for i:=1 to n do begin
    a[i]:=random(101); write(a[i],' ');
    if not odd(i) then b[i div 2]:=a[i];
  end;
  for i:=m downto 1 do
    for j:=1 to i-1 do
      if b[j]<b[j+1] then begin
        c:=b[j]; b[j]:=b[j+1]; b[j+1]:=c;
      end;
  writeln; write('Второй массив: ');
  for i:=1 to m do
    write(b[i],' ');
end.

type mas=array [1..100] of integer;
procedure vvod(var a:mas; n:integer);
  var i:byte;
  begin
    for i:=1 to n do begin
      a[i]:=random(101); write(a[i],' ');
    end;
  end;
var
  a,a2,b:mas;
  i,j,c,n:integer;
begin
  randomize;
  write('N = '); readln(n);
  write('Первый массив: '); vvod(a,n); writeln;
  write('Второй массив: '); vvod(a2,n); writeln;
  for i:=1 to n do b[i]:=a[i]+a2[i];
  for i:=n downto 1 do
    for j:=1 to i-1 do
      if b[j]>b[j+1] then begin
        c:=b[j]; b[j]:=b[j+1]; b[j+1]:=c;
      end;
  write('Третий массив: ');
  for i:=1 to n do write(b[i],' ');
end.