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

Если размеры массива нужны другие, в самом начале программы исправь значения 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]