Надо объяснить как меняются элементы в выделенном красным цветом месте!
Вот программа:
program sortirovka;
const
n=5;
type
mas=array[ L n, L .n] of integer;
var
ij: integer;
a:mas;
procedure sort(var a:mas);
var
k,l,m,z,x, i,j : integer;
begin
m:=1;
while m<=n do begin
k:=m;
L=m;
for i:=1 to n do
for j:=1 to n do
if ((i<>j) or ((i=j) and (i>m))) and (a[i,j]>a[k,l]) then begin
k:=i;
l:=j
end;
if not ((k=m) and (l=m)) then begin
a[m,m]:=a[k,l]-a[m,m];
a[k,l]:=a[k,l]-a[m,m];
a[m,m]:=a[k,l]+a[m,m]
end;
inc(m);
end;
end;
begin
randomize:
for i:=1 ton do
for j:=1 to n do a[i,j]:=random(10);
for i:=1 to n do begin
for j:=1 to n do write(a[ij],' ');
writeln;
end;
writeln;
sort(a);
for i:=1 to n do begin
for j:= 1 to n do
write(a[i,j],' ');
writeln;
end;
end.