Если элемент матрицы на главной диагонали > 0, то эту строку рассортировать по возрастанию

USES CRT;
    const N=5;
 type mas: array [1..N,1..N] of integer;
      var a,b:mas;
     i,j,:integer;
procedure SOZD_MAC (var d:mas);
      begin
        for  i:=1 to n do begin  
       for j:=1 to n do
         d[i,j]:=random(100)-40;
            end; end;
procedure SORT_MAC (var d:mas);
c:integer;
     begin
      for i:=1 to n do
      for j:=1 to n do
      if i=j then
begin
     if d[i;j]>0 then
begin
     i:=1;
     repeat
if d[i,j]>d[i,j+1] then
begin c:=d[i,j];
d[i,j]:=d[i,j+1];
d[i,j+1]:=c;
if i>1 then dec(i);
end
else inc(i);
until i>=n;
end;
    
function min(d:mas;m:integer):real;
begin
m:=maxint;
for i:=1 do k do if d[i]<m then m:=d[i];
min:=m:
end;
for i:=1 to n do
for j:=1 to n do
if i=j then
begin
 d[i,j]:=m;
end;
 
   
procedure VIV_MAC; (d:mas;t:string);
       begin
       writeln(t);
for i:=1 to n do begin
for j:=1 to n do
   write(d[i;j]:5,' ');
writeln;
end; end;
 
  BEGIN
   clrscr;
      randomize;
    SOZD_MAC(a); SORT_MAC(a,'sortiruem masiv') else Writeln('opredeljaem min chislo w stroke i menjam s chislami na glawnoi',min(a):8:1);VIV_MAC(a,'wiwodim masiv');
    SOZD_MAC(b); SORT_MAC(b,'sortiruem masiv') else Writeln('opredeljaem min chislo w stroke i menjam s chislami na glawnoi',min(a):8:1); VIV_MAC(b,'wiwodim masiv');
     Readkey;
      END.

uses crt;
type mas= array [1..20] of integer;//строка матрицы
     matr= array[1..20] of mas;//массив строк=матрица
procedure SozdMtr (var d:matr;var x:byte;c:char);
var i,j:byte;
begin
writeln('Matrica ',c);
write('Razmer=');readln(x);
for  i:=1 to x do
for j:=1 to x do
d[i,j]:=random(100)-40;
end;
procedure VyvMtr (var d:matr;x:byte);
var i,j:byte;
begin
for  i:=1 to x do
 begin
  for j:=1 to x do
  write(d[i,j]:5);
  writeln;
 end;
end;
procedure SortStr(var v:mas;x:byte);//сортировка строки
var i,j:byte;
    c:integer;
begin
for i:=1 to x-1 do
for j:=i+1 to x do
if v[i]>v[j] then
  begin
   c:=v[i];
   v[i]:=v[j];
   v[j]:=c;
  end;
end;
 
function Min(v:mas;x:byte):byte;//номер минимального в строке
var i,im:byte;
begin
im:=1;
for i:=1 to x do
if v[i]<v[im] then im:=i;
Min:=im;
end;
procedure Result(var d:matr;x:byte);//обработка матрицы
var i,j:byte;
    c:integer;
begin
for i:=1 to x do
if d[i,i]>0 then SortStr(d[i],x)//первое условие, сортировка
else if d[i,i]<=0 then//второе условие, обмен
 begin
  c:=d[i,i];
  d[i,i]:=d[i,Min(d[i],x)];
  d[i,Min(d[i],x)]:=c;
 end;
end;
var a,b:matr;
    n,m,i,j:byte;
    c:integer;
BEGIN
clrscr;
randomize;
SozdMtr(a,n,'A');
writeln('Ishodnaya matrica A:');
VyvMtr(a,n);
Result(a,n);
writeln('Izmenennaya matrica A:');
VyvMtr(a,n);
SozdMtr(b,m,'B');
writeln('Ishodnaya matrica B:');
VyvMtr(b,m);
Result(b,m);
writeln('Izmenennaya matrica B:');
VyvMtr(b,m);
readln
end.