Двумерные массивы 2 (Pascal)

[Дима82]

С клавиатуры вводится произвольная квадратная матрица (не более 5x5), после чего делается ее контрольный вывод. В этой матрице заменить порядок следования элементов не главной диагонали на обратный.

Program kz5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    zam:real;
    P,I,r:1..M;
    Q,J:1..N;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Zamena: ');
 r:=P div 2;
 For I:=1 to r do
 Begin
 zam:=A[J,J];
 A[J,J]:=A[P-(I-1),1];
 A[P-(I-1),1]:=zam;
 end;
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Readln
End.

Как, собственно, заменить то... Тут, я попытался, но безуспешно...

[Дима82]

Program kz5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    zam:real;
    P,I,r:1..M;
    Q,J:1..N;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Writeln('Zamena: ');
 r:=P div 2;
 For I:=1 to r do
 Begin
 zam:=A[J,J];
 A[J,J]:=A[P-(J-1),1];
 A[P-(J-1),1]:=zam;
 end;
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Readln
End.

Задача решена (сам сделал)...

[Vedrus]

Помоему этот парень накруткой сообщений занимается.
аяяяй.

[Дима82]

Так, получилось, что я сам её решил...