Пример на VBA Excel
Программу можно посмотреть нажав Alt+F11

uses crt;
var m:array[1..4,1..5]  of integer;
    b:array[1..4] of integer;
    min,i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(35)-30;
end;
end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(m[i,j]:3,'  ' );
writeln;
end;
 min:=m[1,1];
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
if min>m[i,j] then min:=m[i,j];
end;
b[i]:=min;
min:=m[i+1,1];
end;
for i:=1 to 4 do
writeln(i,') ',b[i]);
readkey;
end.