Как найти минимальный элемент побочной диагонали? - Pascal

Формулировка задачи:

program gdiagle  ;
uses crt;
var
i,j,max,iMax,jMax:integer;
a:array[1..5,1..10] of integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(50);
write (a[i,j],' ' )
end;
writeln
end;
writeln ('');
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
if j=i then
begin
if max < a[i, j] then
        begin
          max := a[i, j];
          iMax := i;
          jMax := j;
end;
end;
end;
end;
            writeln('Максимум: ', max);
            writeln(jmax);
            writeln(imax);
end.

Решение задачи: «Как найти минимальный элемент побочной диагонали?»

Листинг программы

uses crt;
var
i,j,min,iMax,jMax:integer;
a:array[1..5,1..10] of integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(50);
write (a[i,j],' ' )
end;
writeln
end;
writeln ('');
min:=a[1,10];
for i:=2 to 5 do
if a[i,11-i]<min then min:=a[i,11-i];
writeln('Минимум: ', min);            
end.

Объяснение кода листинга программы

Объявлены переменные:
- i, j, min, iMax, jMax (для хода циклов и поиска минимума)
- a (массив для заполнения случайными числами)
Заполнение массива a случайными числами от 0 до 49
Вывод содержимого массива a в консоль
Ввод пустой строки для разделения
Инициализация переменной min значением элемента a[1,10]
Поиск минимума в оставшихся элементах массива a, начиная со второго столбца
Вывод найденного минимума на экран
Конец работы программы