const
n = 10;
m = 11;
var
a: array [1 .. n, 1 .. m] of integer;
i, j, mi, mj: integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(100);
write(' ', a[i, j]:3);
end;
writeln();
end;
writeln('--------');
for i := 1 to n do
begin
mi := 1;
mj := 1;
for j := 1 to m do
if a[i, j] < a[mi, mj] then
begin
mi := i;
mj := j;
end;
writeln(a[mi, mj]);
end;
end.