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

спасибо)

пожалуйста)

Если размеры массива нужны другие, в самом начале программы исправь значения n, mconst  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]<min then min:=a[i,j];        end;       writeln('; min=',min);    end;end.