Дан двухмерный массив, в каждой его строке найти минимальный элемент.

Если размеры массива нужны другие, в самом начале программы исправь значения n, m

const

n=5;

m=6;

var

a:array[1 ... n, 1 ... m] of integer;

i, j, min:integer;

begin

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i, j]:=random (20) ;

write (a[i, j]:4) ;

if j=1 then

min:=a[i, 1]

else

if a[i, j]
end;

writeln ('; min=', min) ;

end;

end.