Дан двумерный массив А размерности 4х5. Сформировать одномерный массив В, элементами которого будут являться минимальные элементы в каждом столбце массива А.

Program  Bolatkabylov;uses crt;const n=4;const m=5;var  s:string;   i,j,min:integer;  A:array[1..n,1..m] of integer;  B:array[1..m] of integer;begin  S:='*** Alphaeus is thinking... ***';  for i:=1 to length(s) do begin  write(s[i]);  for j:=1 to 500000 do s[i]:=s[i];  end;  writeln();  writeln('***          OK             ***');  writeln();  writeln('Для заданного массива А размерности 4х5 сформировать одномерный массив В, ');  writeln('элементами которого будут минимальные элементы в каждом столбце массива А.');  randomize;  writeln();  writeln('Массив А: ');  //Заполняем массив А случайными числами и выводим его    for i:=1 to n do  begin    for j:=1 to m do    begin      A[i,j]:=random(100)-50;      write(A[i,j]:4,' ');    end;    writeln();  end;  //Находим минимальные элементы в каждом столбце и сохраняем в массив В  for j:=1 to m do  begin    min:=A[1,j];    for i:=1 to n do    begin      if A[i,j]<min then min:=A[i,j];    end;    B[j]:=min;  end;  //Выводим массив В  writeln();  writeln('Mассив B: ');  for j:=1 to m do    write(B[j]:4,' ');end.