Дана матрица размерностью 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]max then max:=a[i,j];               end;         end;        writeln('; min=',min,'; max=',max);     end; end.