Переписать в матрице строки в обратном порядке - Turbo Pascal

Формулировка задачи:

Переписать в матрице 7×7 строки в обратном порядке. Отправил преподу код, он ответил, что "Надо в реальной матрице выполнить перестановку строк, а затем показать её на экране." Помогите пожалуйста.

Const n=7;
var mas: array[1..n,1..n] of integer;
 i,j: byte;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    mas[i,j]:=random(20)-3;
    write(mas[i,j]:3);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
    for j:=n downto 1 do
      begin
        write(mas[i,j]:4);
        if j=1 then
          writeln;
      end;
for i:=1 to n  do
 begin
  for j:=1 to n  do
    write(mas[i,j]:3);
  writeln;
 end;
end.

Решение задачи: «Переписать в матрице строки в обратном порядке»

Листинг программы

Const n=7;
var mas: array[1..n,1..n] of real;
    i,j: byte;
    x:real;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    mas[i,j]:=10*random;
    write(mas[i,j]:6:2);
   end;
  writeln;
 end;
for i:=1 to n div 2 do
for j:=1 to n do
 begin
  x:=mas[i,j];
  mas[i,j]:=mas[n-i+1,j];
  mas[n-i+1,j]:=x;
 end;
writeln('Перестановка строк');
for i:=1 to n  do
 begin
  for j:=1 to n  do
  write(mas[i,j]:6:2);
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляются переменные: n (константа), mas (массив), i (байт), j (байт), x (реал).
Задается начальное значение для массива mas.
Выполняется цикл, который заполняет массив mas случайными числами от 10 до 99.
Выполняется второй цикл, который меняет местами значения в каждой строке массива mas.
Выполняется еще один цикл, который выводит значения каждой строки массива mas.
Программа завершается после прочтения пользовательского ввода.