Сформировать одномерный массив
 

Дан массив Х(N,M). Для каждого столбца массива найти наименьший элемент. Из полученных значений сформировать одномерный массив.

const n= 5;
m= 5;
type Tmatr= array[1..n,1..m] of byte;
Tmass= array[1..m] of byte;
var A: Tmatr;
B: Tmass;
min,i,j: byte;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
A[i,j]:= Random(10);
j:=1;
repeat
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;
Inc(j);
until j > m;
for j:=1 to m do
Write(B[j]:4);
Readln;
end.