квадратная матрица

[рита соломонова]

помогите пожалуйста, В каждой строке найти min элемент и поместить его на главную диагональ.

[whatever]

for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        if j=1 then min:=j
        else
          if m[i,j]<m[i,min] then
            min:=j;
      end;
    tmp:=m[i,min];
    m[i,min]:=m[i,i];
    m[i,i]:=tmp;
  end;

[skyll]

program qwe;

uses crt;

const len = 5;

var
   ar: array [1..len, 1..len] of integer;
   min, buff, index: integer;
   i, j: integer;

begin
     for i := 1 to len do begin
         for j := 1 to len do begin
             randomize;
             ar[i, j] := random(100) - 50;
             write(ar[i, j]:5);
         end;
         writeln;
     end;
     write('***   ***   ***');
     writeln;
     for i := 1 to len do begin
         min := ar[i, 1];
         index := 1;
         for j := 1 to len do begin
             if (ar[i, j] < min) then begin
                min := ar[i, j];
                index := j;
             end;
         end;
         buff := ar[i, i];
         ar[i, i] := ar[i, index];
         ar[i, index] := buff;
     end;
     for i := 1 to len do begin
         for j := 1 to len do
             write(ar[i, j]:5);
         writeln;
     end;
end.