Паскаль - помогите найти проблему

Помогите пожалуйста :)

Составил программу, которая заменяет строки на столбцы в матрице:

Program zerkalo_11_LAb; {зеркальное отображение матрицы относительно главной оси}

uses crt;

var n,i,j:integer;a,b:array[1..50,1..50] of integer;

{

i,j параметры матрицы

n- размер матрицы

a,b матрица

}

BEGIN

clrscr;



Write('n=');

Readln(n);

Writeln('Исходная матрица');

Randomize;

for i:=1 to n do

 Begin

  for j:=1 to n do

  Begin

  a[i,j]:=random(100);

  Write(a[i,j]:3);

  End;

 Writeln;

 End;

{Readln;}

{Writeln('Povorot na 270 grad:');}

for i:=1 to n do

for j:=1 to n do

b[i,j]:=a[j,n-i+1];

for i:=1 to n do

 Begin

 for j:=1 to n do

  Begin

  {Write(b[i,j]:3);}

  End;

 {Writeln;}

 End;

Readln;

a:=b;

Writeln('Замена строк и столбцов :');

for i:=n downto 1 do

 begin

 for j:=1 to n do

  begin

  write(a[i,j]:3);

  end;

 writeln;

 end;

readln;

{Третья строка}





 for i:=n downto n do

 Begin

 for j:=1 to n do

  begin

  write(a[5,j]:3);

  end;

 writeln;

 end;

readln;



END.

Выполнение показал. Препод задал дополнительный вопрос: "Вывести третью строку получившейся матрицы".

Ну я и вывел.. В конце программы код ниже "{третья строка}" преподу не понравился :) А именно:

  write(a[5,j]:3);

Сказал , что я хочу его обмануть :rolleyes:.

Получается что я матрице даю обратный ход..

Нужно как-то его не обманывать и получить правильный результат - помогите пожалуйста! Долго пытался что-то сделать - не получается.