Помогите с программой(Pascal)

[And1mx]

Помогите мне описать работу программы! Ну там если можно то мне нужно написать комменты к строчкам программы!

Вот задание к программе:

Дана действительная квадратная матрица порядка N(n- нечетное). Все элементы матрицы различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей.

Вот сама программа:

const
nmax = 101;

var
a: array[1..nmax, 1..nmax] of longint;
n, i, j, maxi, maxj, v : longint;

begin
repeat
write('Введите нечётное n < ', nmax, ': ');
readln(n);
if not odd(n) then
writeln('n должно быть нечётно');
if n > nmax then
writeln('n должно быть меньше ', nmax);
until (odd(n) and (n < nmax));
writeln('Ввод матрици');
for i:=1 to n do
for j:=1 to n do begin
write('a[', i, ',', j, '] = ');
readln(a[i, j]);
end;

maxi := 1;
maxj := 1;
for i:=1 to n do
begin
if a[i,i]>a[maxi,maxj] then
begin maxi:=i;
maxj:=i;
end;
if a[i,n-i+1]>a[maxi,maxj] then
begin maxi:=i;
maxj:=n-i+1;
end;
end;

v := a[maxi, maxj];
a[maxi, maxj] := a[(n + 1) div 2, (n + 1) div 2];
a[(n + 1) div 2, (n + 1) div 2] := v;

writeln('После обработки матрица принела следующий вид:');
for i:=1 to n do begin
for j:=1 to n do
write(a[i, j], ' ');
writeln;
end;
end.

Помогите плизз! Очень нужно!

[merax]

Ну и что тут сложного, книжку не открывали? А следовало бы. Хотя бы ради интереса!

\\ Предупреждение. Посылы "читать книжку" не приветствуются. AVer

[AVer]

Все достаточно просто. Вот пример комментариев:

const 
nmax = 101;   \\ Макс. размер

var
a: array[1..nmax, 1..nmax] of longint;    \\ Матрица
n, i, j, maxi, maxj, v : longint;   \\ Необходимые переменные

begin
repeat    \\ Повторять следующее:
write('Введите нечётное n < ', nmax, ': ');
readln(n);    \\ Ввод n
if not odd(n) then     \\ Если n четное, то
writeln('n должно быть нечётно');     \\ Вывод сообщения
if n > nmax then     \\ Если n больше макс. значения, то
writeln('n должно быть меньше ', nmax);   \\ Вывод сообщения
until (odd(n) and (n < nmax));  Пока не n - нечетное и меньше макс значения
writeln('Ввод матрицы');
for i:=1 to n do     \\ Цикл строк
for j:=1 to n do begin    \\ Цикл столбцов
write('a[', i, ',', j, '] = ');
readln(a[i, j]);   \\ Ввод соответствующего элемента
end;

maxi := 1;
maxj := 1;
for i:=1 to n do     \\ Цикл диагонали
begin
if a[i,i]>a[maxi,maxj] then   \\ Если элемент главной диагонали меньше минимального
begin maxi:=i;   \\ Он считается минимальным 
maxj:=i;    \\ Он считается минимальным 
end;
if a[i,n-i+1]>a[maxi,maxj] then  \\ Если элемент побочной диагонали меньше минимального
begin maxi:=i;    \\ Он считается минимальным 
maxj:=n-i+1;    \\ Он считается минимальным 
end;
end; 

v := a[maxi, maxj];    \\ Сохраняем минимальное значение
a[maxi, maxj] := a[(n + 1) div 2, (n + 1) div 2];    \\ Вместо него пишем значение центра
a[(n + 1) div 2, (n + 1) div 2] := v;  \\ В центр пишем мин. значение

writeln('После обработки матрица приняла следующий вид:');
for i:=1 to n do begin    \\ Цикл строк
for j:=1 to n do     \\ Цикл столбцов
write(a[i, j], ' ');   \\ Вывод соответствующего элемента
writeln;
end;
end.

[And1mx]

Спасибо огромное! Выручил