По идеи надо первым способом) Оставила вот так:
Program pr2;
Const
N=5;
Var
A,B:ARRAY[1..N,1..N] of Integer;
i,j,D:Integer;
BEGIN
Randomize;
For i:=1 to N do
For j:=1 to N do
begin
D:=Random(10);
A[i,j]:=D-5;
end;
WriteLn('Initial matrix:');
For i:=1 to N do
begin
For j:=1 to N do
Write(A[i,j]:4);
WriteLn;
end;
WriteLn('Transformed matrix:');
For i:=1 to N do
For j:=1 to N do
B[i,j]:=A[N-j+1,N-i+1];
For i:=1 to N do
begin
For j:=1 to N do
Write(B[i,j]:4);
WriteLn;
end;
END.
Если что, покажу другой способ=)