В массиве а ( m, n ) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить каждый минимум на 5 и найти произведение - Turbo Pascal

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

В массиве а (m, n) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить каждый минимум на 5 и найти произведение этих чисел. (массив вводить самой, без рандома)

Решение задачи: «В массиве а ( m, n ) в каждом столбце найти минимум, вывести эти минимумы в линейный массив, умножить каждый минимум на 5 и найти произведение»

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

var
a:array[1..6,1..5] of integer;
b:array[1..5] of integer;
min:integer;
i,j:byte;
begin
for i:=1 to 6 do
    for j:=1 to 5 do
 readln(a[i,j]);
writeln('Массив');      
for i:=1 to 6 do
  begin
    for j:=1 to 5 do
      begin
        write(a[i,j],' ');
      end;
  writeln;
  end;
 
for j:=1 to 5 do
  begin
  min:=a[1,j];
    for i:=1 to 6 do
      begin
      if a[i,j]<min then min:=a[i,j];
      end;
      b[j]:=min;
   end;
writeln('линейный массив');
for i:=1 to 5 do
  write(b[i],' ');
writeln('массив умноженный на 5');
  for i:=1 to 5 do
    begin
    b[i]:=b[i]*5;
    write(b[i],' ');
    end;
end.

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

Создается переменная a типа array[1..6,1..5] of integer. Это двумерный массив размером 6x5, который будет использоваться для хранения чисел.
Запускается цикл for i:=1 to 6 do, который выполняется 6 раз. Внутри цикла запускается вложенный цикл for j:=1 to 5 do, который выполняется 5 раз.
Внутри вложенного цикла for j:=1 to 5 do считывается число из массива a[i,j] и сохраняется в переменной min.
После окончания вложенного цикла for j:=1 to 5 do переменная min содержит минимальное число из массива a.
Запускается еще один вложенный цикл for i:=1 to 6 do, который выполняется 6 раз. Внутри цикла выводится число a[i,j] из массива a.
После окончания вложенного цикла for i:=1 to 6 do выводится строка Массив.
Запускается еще один вложенный цикл for j:=1 to 5 do, который выполняется 5 раз. Внутри цикла выводится число b[j] из массива b, которое равно минимальному числу из массива a, умноженному на 5.
После окончания вложенного цикла for j:=1 to 5 do выводится строка линейный массив.
Выводится массив b в виде b[0] b[1] b[2] b[3] b[4] b[5].
Запускается еще один вложенный цикл for i:=1 to 5 do, который выполняется 5 раз. Внутри цикла выводится число b[i] из массива b, которое равно числу b[j] из предыдущего шага, умноженному на 5.
После окончания вложенного цикла for i:=1 to 5 do выводится строка массив умноженный на 5.