Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их с первым и последним элементом строки соответственно.

var b:array[1..3,1..5] of integer;
i,j,max,min,x,imin,imax:integer;
begin
for i:=1 to 3 do
begin
writeln;
for j:=1 to 5 do
begin
b[i,j]:=random(15);
write(b[i,j],' ':2);
end;
end;      {Вывели матрицу в традиционном виде}
max:=b[1,1];
min:=b[1,1];
for i:=1 to 3 do
for j:=1 to 5 do
begin
if (b[i,j]>max) then
begin
max:=b[i,j];
imax:=i;
end;     {Находим максимальный элемент и его позицию}
if (b[i,j]<min) then
begin
min:=b[i,j];
imin:=i;
end;      {Находим минимальный элемент и его позицию}
x:=max;
max:=a[imax,1];
a[imax,1]:=x;    {Заменяем первый элемент строки на максимум}    
x:=min;
min:=a[imin,5];
a[imin,5]:=x;     {Заменяем последний элемент строки на минимум}
for i:=1 to 3 do
begin
writeln
for j:=1 to 5 do
write(a[i,j],' ':2);  {Выводим на экран окончательный вариант матрицы}
end;
readln
end.

const
  n = 3;
  m = 5;
 
var
  max,min,i,j: integer;
  mas: array[1..n, 1..m] of integer;
 
begin
  Randomize;
 Writeln('Ваш массив');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      mas[i,j]:= Random(10);
      Write(mas[i,j],'  ');
     end;
    Writeln;
   end;
 
 
 
  for i:=1 to n do
   begin
   max:=mas[i,1];
   min:=mas[i,1];
   for j:=1 to m do
    begin
     if (mas[i,j]>max) then
      max:=mas[i,j];
     if (mas[i,j]<=min) then
      min:=mas[i,j];
    end;
   mas[i,1]:=max;
   mas[i,5]:=min;
  end;
 
writeln('Новый массив');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      Write(mas[i,j],'  ');
     end;
    Writeln;
   end;
readln;
 
end.