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

uses
  crt;
const
  n=6;{ðàçìåð ìàòðèöû}
var
  a:array [1..n,1..n] of integer;
  i,j,min,temp:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ìèíèìóì êàæäîé è ïðîèçâîäèì çàìåíó ñ ãëàâíîé äèàãîíàëüþ ñòðîêè}
  for i:=1 to n do
  begin
    min:=1;
    for j:=2 to n do
      if a[i,j]<a[i,min] then
        min:=j;
    if min<>i then
    begin
      temp:=a[i,min];
      a[i,min]:=a[i,i];
      a[i,i]:=temp
    end
  end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i=j then
        textcolor(4)
      else
        textcolor(0);
      write(a[i,j]:2,' ');
    end;
    writeln
  end;
end.

Èñõîäíàÿ ìàòðèöà:
 3 -4  0 -4  3  2 
-1 -1  2 -1 -4 -1 
-1  0  1 -4  3 -1 
 0 -3 -2 -1  3 -4 
 1 -4 -3 -3  2  3 
-3  2  2  0 -3  2 
Ïîëó÷åííàÿ ìàòðèöà:
 3  0 -4  3  2 
-1  2 -1 -1 -1 
-1  0  1  3 -1 
 0 -3 -2  3 -1 
 1  2 -3 -3  3 
 2  2  2  0 -3

program nado;
const
  n=6;{ðàçìåð ìàòðèöû}
var
  a:array [1..n,1..n] of integer;
  i,j,min,temp:integer;
begin
 
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ìèíèìóì êàæäîé è ïðîèçâîäèì çàìåíó ñ ãëàâíîé äèàãîíàëüþ ñòðîêè}
  for i:=1 to n do
  begin
    min:=1;
    for j:=2 to n do
      if a[i,j]<a[i,min] then
        min:=j;
    if min<>i then
    begin
      temp:=a[i,min];
      a[i,min]:=a[i,i];
      a[i,i]:=temp
    end
  end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i=j then
 
      else
 
      write(a[i,j]:2,' ');
    end;
    writeln
  end;
end.

begin
      if i=j then
 [B]Что?[/B]      else

program nado;
const
  n=6;{размер матрицы}
var
  a:array [1..n,1..n] of integer;
  i,j,min,temp:integer;
begin
 
  {заполняем и выыводим матрицу}
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {находим минимум каждой и производим замену с главной диагональю строки}
  for i:=1 to n do
  begin
    min:=1;
    for j:=2 to n do
      if a[i,j]<a[i,min] then
        min:=j;
    if min<>i then
    begin
      temp:=a[i,min];
      a[i,min]:=a[i,i];
      a[i,i]:=temp
    end
  end;
  {выводим матрицу}
  writeln('Полученная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
          write(a[i,j]:2,' ');
       writeln
  end;
end.