Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке

uses crt;
 
const n=5;
      m=10;
      
var a:array[1..n,1..m] of integer;
    i,j,min,max,imin,jmin,imax,jmax:integer;
    
begin
  min:=0;
  max:=0;
  randomize;
  clrscr;
  writeln('Матрица 5x10 - ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(10)-5;
      write(a[i,j]:2,' ');
    end;
    writeln;
  end;
  
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if a[i,j]<min then
      begin
        min:=a[i,j];
        imin:=i;
        jmin:=j;
      end;
      if a[i,j]>max then
      begin
        max:=a[i,j];
        imax:=i;
        jmax:=j;
      end;
    end;
    a[imin,jmin]:=max;
    a[imax,jmax]:=min;
    min:=0;
    max:=0;
    writeln;
  end;
  
  writeln('Преобразованная матрица 5х10 -  ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write(a[i,j]:2,' ');
    end;
    writeln;
  end;
  
end.