из паскаля в фортран

[katya2.5]

Содержимое кв.матрецы A(n n) повернуть на 90 градусов по часовой, считая центром поворота центр симметрии матрицы.

const n=5;
type Tm=array[1..n,1..n] of integer;
procedure WriteM(var q: Tm);
var i, j: integer;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(q[i,j]:5);
writeln;
end;
end;
var i,j:integer;
m, newm: Tm;
begin
for i:=1 to n do
for j:=1 to n do
m[i,j]:=i*10+j;
WriteM(m);
for i:=1 to n do
for j:=1 to n do
newm[j,n-i+1]:=m[i,j];
WriteM(newm);
readln;
end.