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

 uses crt;
 
 var B: array [1..50,1..50] of integer;
 i,j,max,min,n,m,t:integer;
 
 procedure swap(var x,y:integer);
 var t:integer;
    begin
    t:=x; x:=y; y:=t;
    end;
 
 begin
 clrscr;
    Write('Количество строк: ');readln(n);
    Write('Количество столбцов: ');readln(m);
    Writeln('Исходная матрицы:');
    For i:=1 to n do
    begin
    min:=i; max:=i;
      For j:=1 to m do
      begin
      randomize;
      b[i,j]:=random(50)+1;
      write(b[i,j]:4);
      If b[i,j]>b[i,max] then max:=j;
      end;
    swap(b[i,1],b[i,max]);
      For j:=1 to m do
      If b[i,j]<b[i,min] then min:=j;
    swap(b[i,m],b[i,min]);
    writeln;
    end;
    Writeln('Преобразованная матрицы:');
    For i:=1 to n do
    begin
      For j:=1 to m do
      write(b[i,j]:4);
    writeln;
    end;
    readkey
 end.