Дана матрица размерностью n*m. найти в каждой строке max и min элемент

Если нужна матрица другого размера, то надо исправить значения n=5; m=6 на нужные.const  n=5;  m=6;var  a:array[1..n,1..m] of integer;  i,j,min,max: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            begin              min:=a[i,1];              max:=a[i,1];            end            else              begin                if a[i,j]<min then min:=a[i,j];                if a[i,j]>max then max:=a[i,j];              end;        end;       writeln('; min=',min,'; max=',max);    end;end.