Поменять местами диагональные элементы и минимальные элементы в соответствующей строке матрицы

uses TpCrt;
const max = 39;
var
  A : array[1..max,1..max] of Byte;
  gety,minj,i,j,b : Byte;
 
begin
  randomize;
  writeln('matric A: ');
  for i:=1 to max do begin
    minj:=1;
    for j:=1 to max do begin
      A[i,j]:=random(9); if i=j then TextColor(green);
      write(A[i,j]:2);   if i=j then TextColor(7);
      if a[i,minj]>a[i,j] then minj:=j;
    end;
    TextColor(14); gotoXY(minj*2,wherey); write(a[i,minj]); TextColor(7);
    delay(50000); delay(50000); delay(50000); delay(50000);
    b:=a[i,i]; a[i,i]:=a[i,minj]; a[i,minj]:=b;
    TextColor(green); gotoXY(minj*2,wherey); write(a[i,minj]);
    TextColor(14); gotoXY(i*2,wherey); write(a[i,i]); TextColor(7);
    writeln;
  end;
  readln;
End.

const max = 100;
var
  A : array[1..max,1..max] of Byte;
  minj,i,j,b,n : Byte;
 
begin
  randomize;
  write('razmernost : '); readln(n);
  if n<40 then writeln('matrica do:');
  for i:=1 to n do begin
    minj:=1;
    for j:=1 to n do begin
      A[i,j]:=random(9);
      if a[i,minj]>a[i,j] then minj:=j;
      if n<40 then write(a[i,j]:2);
    end;
    b:=a[i,i]; a[i,i]:=a[i,minj]; a[i,minj]:=b;
    if n<40 then writeln;
  end;
  readln;
  if n<40 then begin
    writeln('posle : ');
    for i:=1 to n do begin
      for j:=1 to n do write(a[i,j]:2);
      writeln;
    end;
    readln;
  end;
End.