дана вещественная матрица размера nxm определить числа b1,...,bm равные разностям наибольших и наименьших значений элементов строк

Program pr2; uses crt; var m,n,i,j,k,l:integer; mas: array[1..99,1..99] of integer; masb: array [1..99] of integer; begin clrscr; write('vvedite m'); readln(m); write('vvedite n'); readln(n); writeln('vvedite massiv MxN') ;for i:=1 to m do for j:=1 to n do begin write('mas[',i,',',j,']= '); readln(mas[i,j]); end; for i:=1 to m do begin k:=mas[i,1]; l:=mas[i,1]; for j:=1 to n do begin if k < mas[i,j] then k:=mas[i,j]; if l > mas[i,j] then l:=mas[i,j]; end; masb[i]:=k-l; end; for i:=1 to m do begin for j:=1 to n do write(mas[i,j],' '); writeln('result = ',masb[i]); end; readln(i) end.