найти в каждой строчке найбольший и найменьший елемент и поставить их на первом и последнем месте строчки

[wlll]

дана матрица м на н. найти в каждой строчке найбольший и найменьший елемент и поставить их на первом и последнем месте строчки.помогите пж

[wlll]

uses
CRT;
var
mas: array [1..n, 1..m] of integer;
j, i, s, m,nmin, jmin, jmax, max, temp: integer;
begin
Clrscr;
write('n=');readln(n);
write('m=');readln(m);
randomize;
writeln('Исходная матрица: ');
for i := 1 TO n DO
begin
for j := 1 TO m DO
begin
MAS[i, j] := random(10) - 3;
write(' ',mas[i, j]:2);
end;
writeln;
end;
writeln;
for i := 1 to n do
begin
max := mas[i, 1];
jmax := 1;
min := mas[i, 1];
jmin := 1;
for j := 1 to m do
if MAS[i, j] < max THEN
begin
max := mas[i, j];
jmax := j;
end
else
if MAS[i, j] > min THEN
begin
min := mas[i, j];
jmin := j;
end;

end;
max:=mas[1,n];
min:=mas[m,n];
writeln;
WRITELN('Результирующая матрица: ');
for i := 1 to n do
begin
for j := 1 to m do
begin
write(' ', mas[i, j]:2);
end;
writeln;
end;
end.