В каждом столбце матрицы расположить элементы в заданном порядке

const K=200; L=15; 
var a,a1:array[1..K,1..L] of integer;
   b:array of integer;
  i,j:integer;
begin
  setlength(b,K);
  for i:=1 to K do
  begin
    for j:=1 to L do
    begin
      a[i,j]:=random(-20,20);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for j:=1 to L do
  begin
    for i:=1 to K do
    begin
      b[i-1]:=a[i,j]; {положили столбец в отдельный массив}
    end;
    b.Sort; {отсортировали массив}
    for i:=1 to K do
    begin
      a[i,j]:=b[i-1]; {положили отсортированный столбец в столбец исходного массива}
    end;  
  end;
  writeln('Вывод массива в указанном порядке');
  for i:=1 to K div 2 do
  begin
    for j:=1 to L do
    begin
      write(a[K-i+1,j]:4);
    end;
     writeln;
    for j:=1 to L do
    begin
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.

const K=200; L=15; 
type mas=array [1..200] of integer;
var a:array[1..K,1..L] of integer;
    b:mas;
  i,j:integer;
procedure sort(t:integer;var m:mas);
var p,q,f:integer;
begin
  for p:=1 to t-1 do
  begin
    for q:=1 to t-p do
      if m[q]>m[q+1] then
      begin
        f:=m[q];
        m[q]:=m[q+1];
        m[q+1]:=f;
      end;
  end;
end;
begin
  for i:=1 to K do
  begin
    for j:=1 to L do
    begin
      a[i,j]:=random(-20,20);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for j:=1 to L do
  begin
    for i:=1 to K do
    begin
      b[i]:=a[i,j]; {положили столбец в отдельный массив}
    end;
    sort(K,b); {отсортировали массив}
    for i:=1 to K do
    begin
      a[i,j]:=b[i]; {положили отсортированный столбец в столбец исходного массива}
    end;  
  end;
  writeln('Вывод массива в указанном порядке');
  for i:=1 to K div 2 do
  begin
    for j:=1 to L do
    begin
      write(a[K-i+1,j]:4);
    end;
     writeln;
    for j:=1 to L do
    begin
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.

const
  mk = 200;
  ml = 15;
var
  a: array[1..mk, 1..ml] of integer;
  i, j, K, L, n, p, t: integer;
begin
  randomize;
  write('K = ');
  readln(K);
  write('L = ');
  readln(L);
  writeln('Исходый массив:');
  for i := 1 to K do
    begin
      for j := 1 to L do
        begin
          a[i,j] := -99 + random(199);
          write(a[i,j]:4)
        end;
      writeln
    end;
  for j := 1 to L do
    for i := 1 to K - 1 do
      begin
        p := i;
        for n := i + 1 to K do
          if odd(i) and (a[n,j] > a[p,j]) or not odd(i) and (a[n,j] < a[p,j]) then p := n;
        if p > i then
          begin
            t := a[i,j];
            a[i,j] := a[p,j];
            a[p,j] := t
          end
      end;
  writeln('Отсортированный массив:');
  for i := 1 to K do
    begin
      for j := 1 to L do write(a[i,j]:4);
      writeln
    end
end.

const K1=200; L1=15; 
type mas=array[1..K1,1..L1] of integer;
procedure in_out(S,Q:integer;d:boolean;var m:mas);
var x,y:integer;
begin
  randomize;
  for x:=1 to S do
    for y:=1 to Q do
      if d then m[x,y]:=-50+random(101)
           else
               if y=Q then writeln(m[x,y]:4)
                      else write(m[x,y]:4);
end;
procedure change(var c,d:integer);
var buf:integer;
begin
  buf:=c; c:=d; d:=buf;
end;
var a:mas;
    i,j,t,ik,K,L:integer;
begin
  writeln('Введите кол-во строк и столбцов массива:');
  readln(K,L);
  writeln('Исходный массив: ');
  in_out(K,L,true,a);
  in_out(K,L,false,a);
  for j:=1 to L do
  begin
    t:=1;
    while t<=K-1 do
      begin
       ik:=t;
       for i:=t to K do 
         if a[i,j]>a[ik,j] then ik:=i;
       change(a[t,j],a[ik,j]);
       ik:=t+1;
       for i:=t to K do 
         if a[i,j]<a[ik,j] then ik:=i;
       change(a[t+1,j],a[ik,j]);
       t:=t+2;
      end;
  end; 
  writeln('Измененный массив:');
  in_out(K,L,false,a);
end.