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

end;

end;

writeln ('; min=', min,'; max=', max) ;

end;

end.