Вывести на экран минимальное значение в каждом столбце матрицы - Free Pascal

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

Дана квадратная вещественная матрица размерности n. Вывести на экран минимальное значение в каждом столбце.

Решение задачи: «Вывести на экран минимальное значение в каждом столбце матрицы»

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

uses math;
type mas=array of real;
     matr=array of mas;
var a:matr;
    n,i,j:integer;
begin
 randomize;
 write('n = ');readln(n);
 setlength(a,n,n);
 for j:=0 to n-1 do
  begin
   for i:=0 to n-1 do
    begin
     a[i,j]:=random*(random(20)-random(20));
     write(a[i,j]:6:1);
    end;
   writeln
  end;
 writeln('min');
 for j:=0 to n-1 do write(minvalue(a[j]):6:1);
 readln
end.

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

В этом коде используется язык программирования Free Pascal. Вот список действий, которые выполняются в этом коде:

Объявляются переменные:
- a: массив из массивов (матрица), где каждый элемент является массивом из чисел с плавающей точкой (тип mas).
- n: целочисленная переменная для хранения размера матрицы.
- i, j: целочисленные переменные для хранения индексов строк и столбцов.
Инициализируется генератор случайных чисел.
Пользователю предлагается ввести размер матрицы.
Матрица a инициализируется с помощью функции setlength.
В цикле по всем строкам матрицы (j) и всем столбцам (i) вычисляется случайное значение элемента матрицы a[i,j] с помощью формулы random*(random(20)-random(20)).
С помощью функции write выводится значение элемента a[i,j] с точностью до 6 знаков после запятой.
После завершения цикла по всем строкам матрицы выводится символ новой строки.
В цикле по всем строкам матрицы вычисляется минимальное значение элементов каждой строки (minvalue(a[j])).
С помощью функции write выводится минимальное значение элемента a[j] с точностью до 6 знаков после запятой.
Программа ожидает ввода пользователя с помощью функции readln.