Упорядочить элементы нечетных строк матрицы А по убыванию значений - Pascal

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

3) упорядочить элементы нечетных строк матрицы А по убыванию значений; a[i,j]=(10i+25j)/(5ij)

Решение задачи: «Упорядочить элементы нечетных строк матрицы А по убыванию значений»

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

program pr;
 
var
  a: array [1..100, 1..100] of real;
  i, n, m, j, k: integer;
 
begin
  writeln('Введите количество строк матрицы');
  readln(n);
  writeln('Введите количество столбцов матрицы');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := (10 * i + 25 * j) / (5 * i * j);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(' ', a[i, j]:3:1);
    writeln;
  end;
end.

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

Объявляется переменная a как массив размерности 100x100, содержащий вещественные числа.
Объявляются переменные i, n, m, j, k как целочисленные.
Выводится сообщение Введите количество строк матрицы.
Считывается значение для переменной n с клавиатуры.
Выводится сообщение Введите количество столбцов матрицы.
Считывается значение для переменной m с клавиатуры.
Выполняется двойной цикл, заполняющий матрицу a значениями, вычисляемыми по формуле: (10 i + 25 j) / (5 i j), где i и j - индексы строки и столбца соответственно.
Выполняется цикл, выводящий на экран заполненную матрицу.