Массивы

Uses
   CRT;
const
  M = 3; N = 4;
 
type
  matritsa = array[1..M, 1..N] of integer;
 
const
  a: matritsa =   ((2, 6, 4, 2),
                                   (9, 1, 8, 3),
                (5, 7, 3, 8));
 
var
  i, j: integer;
  kl:matritsa;
 
procedure puziryok_2(mass: matritsa; M, N: integer; Var rez:matritsa);
var
  i, j, i1, j1, k: integer;
  c: Integer;
label   metka;
begin
  i1 := M;
  j1 := N;
  for k := 1 to M * N - 1 do
  begin
    for i := 1 to M do
      for j := 1 to N do
      begin
        if not ((i < i1) OR (i = i1) AND (j < j1)) then
          goto metka;
        if j <> N then
          if mass[i, j] < mass[i, j + 1] then
          begin
            c := mass[i, j];
            mass[i, j] := mass[i, j + 1];
            mass[i, j + 1] := c
          end{if};
        if (j = N) AND (i <> M) then
          if mass[i, j] < mass[i + 1, 1] then
          begin
            c := mass[i, j];
            mass[i, j] := mass[i + 1, 1];
            mass[i + 1, 1] := c
          end
      end;
    metka: if j1 > 1 then
      j1 := j1 - 1
    else
    begin
      j1 := N;
      i1 := i1 - 1
    end
  end;;
  rez:=mass;
end;
 
begin
 
  puziryok_2(a, M, N, kl);
 
  for i := 1 to M do
  begin
    for j := 1 to N do
      Write(kl[i, j],   '    '   );
    WriteLn
  end;
 
end.