Заполнить матрицу случайными числами...

[DashGames]

Вот часть кода,помогите написать пацаны..

begin
clrscr;
randomize;
writeln ('nax mat');
for i:=1 to y do
begin
for j:=1 to x do
begin
m[i,j] :=random(100);
write (m[i,j]:5);
end;
writeln;
end;
for i:=1 to y do
for j:=1 to x do
begin
k:=m[i,j];
m[i,j]:=m[y-i+1,j];
m[y-1+1,j]:=k;
end;
for i:=1 to y do
begin
for j:=1 to x do
write(m[i,j]:3);
writeln;
end;
end.

[BDA]

1) Заполнение случайными числами в коде присутствует
2) Размер матрицы советую задавать квадратный
3) Может быть, стоит запросить у пользователя размер матрицы
4) Данный код два раза отражает матрицу относительно горизонтальной оси (ну если убрать маленькую ошибочку в индексах и задать x и y)
5) Для выполнения данного задания нужен 1 цикл, который пройдет по главной диагонали (элементы m[i, i]) и отразит ее с побочной

UPD
Serge_Bliznykov, да, пора мне принимать на вооружение более жесткие формулировки (а то все время пишу "наверное", "лучше", "советую").

[Serge_Bliznykov]

Сообщение от BDA

2) Размер матрицы советую задавать квадратный

позволю себе сделать акцент на данном пункте:
данный пункт носит не рекомендательный, А ОБЯЗАТЕЛЬНЫЙ характер!
(ибо понятия главной и побочной диагоналей определено только, исключительно, для квадратных матриц!)