Помогите, пожалуйста, сделать программу.

[eduard5]

Дан массив и надо поменять местами диагонали. Н-р:
Дано:
5 2 7
4 6 8
1 9 3
Резутат:
7 2 5
4 6 8
3 9 1
Вот у меня начало.

const n=100; 
var 
massiv:array[1..n,1..n] of integer; 
res:array[1..n,1..n] of integer; 
row,column:integer; 
begin 
Randomize; 
writeln('исходный массив'); 
for row:=1 to n do begin 
for column:=1 to m do begin 
massiv[row,column]:=random(100); 
write(' ',massiv[row,column]:2); 
end; 
writeln; 
end;

 

[hosm]

а m во внутреннем for с какого потолка взялось? Вы программу на бумажке пишете или прям тут, на форуме?
Компилировать не умеете?