{* Перестановка столбцов *}

Unit PASPERESST;
Interface
Implementation
Begin
 writeln('Дан двумерный массив A(n, m). Получить массив, получающуюся из данной: перестановкой столбцов: первого с последним, второго с предпоследним и т. д');
End.

Program pasperesst;

Uses pasperesst.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 10;
Const {* Константы *}
  m = 11;
Var {* Объявление переменных *}
  a : Array[1..100, 1..100] Of integer;
  i : integer;
  j : integer;
  k : integer;
  z : integer;
Begin
  randomize;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    For j := 1 To m Do {* Увеличиваем j от 1 до m с шагом 1 *}
      a[i, j] := random(9) + 1;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    For j := 1 To m Do {* Увеличиваем j от 1 до m с шагом 1 *}
      write(a[i, j] : 2);
    writeln; {* Пропускаем одну строку *}
  End;
  writeln; {* Пустая строка *}
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    For j := 1 To round(m / 2) Do {* Увеличиваем j от 1 до round(m с шагом 1 *}
    Begin
      k := a[i, j];
      a[i, j] := a[i, m + 1 - j];
      a[i, m + 1 - j] := k;
    End;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := 1 To m Do {* Переменная j увеличивается с 1 до m *}
      write(a[i, j] : 2);
    writeln; {* Пустая строка *}
  End;
  readln; {* Ждем нажатия Enter *}
End.