Объяснение программы

const
  n = 9;
  m = 19;
 
type
  mas = array [1..n + m] of integer;
 
var
  a, b, c: mas;
 
procedure SOZD(var d: mas; k: integer);
var
  i: integer;
begin
  for i := 1 to k do
    d[i] := random(20);
end;
 
procedure VIVOD(d: mas; k: integer; t: string);
var
  i: integer;
begin
  writeln(t);
  for i := 1 to k do
    write(d[i], ' ');
  writeln;
  writeln;
end;
 
procedure SORT(var d: mas; k: integer);
var
  i, r, min, j, l, nom, c, h: integer;
begin
  l := 1; r := k;
  for i := 1 to k  do
  begin
    min := maxint;
    for  j:= l to r do
      if d[j] < min then begin
        min := d[j];
        nom := j;
      end;
    if i mod 2 <> 0 then begin
      c := d[nom];
      d[nom] := d[l];
      d[l] := c;
      inc(l);
    end
    else begin
      h := d[nom];
      d[nom] := d[r];
      d[r] := h;
      dec(r);
    end;
  end;
  
  
end;
 
procedure SOZD_C(var d: mas; k, q: integer);
var
  i: integer;
begin
  for i := 1 to k do d[i] := a[i];
  for i := k + 1 to k + q do d[i] := b[i - k];
end;
 
begin
  cls;
  Randomize;
  
  SOZD(a, n); VIVOD(a, n, 'Исходный массив A');
  SOZD(b, m); VIVOD(b, m, 'Исходный массив B');
  SORT(a, n); VIVOD(a, n, 'Отсортированный массив A');
  SORT(b, m); VIVOD(b, m, 'Отсортированный массив B');
  SOZD_C(c, n, m);VIVOD(c, n + m, 'Исходный массив С');
  SORT(c, n + m);VIVOD(c, n + m, 'C после сортировки');
  
end.