Элементы, находящиеся на периметре матрицы, расположить в порядке возрастания

type
  matr = array [1..100, 1..100] of integer;
  mas = array [1..400] of integer;
 
var
  i, j, k, n, m, b: integer;
  a: matr;
  c: mas;
 
begin
  randomize;
  writeln('Введите размер матрицы');
  readln(n, m);
  writeln('Исходная матрица');
  readln(n, m);
  for i := 1 to n
  do 
  begin
    for j := 1 to m
    do 
    begin
      a[i, j] := random(256);
      write(' A[', i, ',', j, ']=', A[i, j]:3);
    end;
    writeln;
  end;
  for i := 1 to m
  do 
  begin
    k += 1;
    C[k] := A[1, i];
  end;
  for i := 2 to n
  do 
  begin
    k += 1;
    C[k] := A[i, m];
  end; 
  for i := m - 1 downto 1
  do 
  begin
    k += 1;
    C[k] := A[n, i];
  end;
  for i := n - 1 downto 2
  do 
  begin
    k += 1;
    C[k] := A[i, 1];
  end;
  writeln('Исходный массив');
  for i := 1 to k
    do write(' C[', i, ']=', C[i]:3);
  writeln;
  writeln('Отсортированный массив');
  for i := 1 to k - 1 do
    for j := 1 to k - i do
      if C[j] > C[j + 1] then begin
        b := C[j];
        C[j] := C[j + 1];
        C[j + 1] := b
      end;
  for i := 1 to k
    do write(' C[', i, ']=', C[i]:3);
end.

k:=0;
for i := 1 to m
  do 
  begin
    k += 1;
    A[1, i] := C[k];
  end;
  for i := 2 to n
  do 
  begin
    k += 1;
    A[i, m] := C[k];
  end; 
  for i := m - 1 downto 1
  do 
  begin
    k += 1;
    A[n, i] := C[k];
  end;
  for i := n - 1 downto 2
  do 
  begin
    k += 1;
    A[i, 1] := C[k];
  end;