Pascal (массивы)

[4otenado]

Помогите пож-та сделать в этой задаче упорядочивание элементов побочной диагонали в порядке у бывания:
program lab2;
uses crt;
type mas=array[1..7,1..7] of real;
var a:mas;
i,j:integer;
sum,temp:real;
begin
clrscr;
randomize;
writeln (' ');
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
a[i,j]:=-10+random(20);
write(a[i,j]:3:0)
end;

writeln
end;
for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i,i]>a[j,j] then
begin
temp:=a[i,i];
a[i,i]:=a[j,j];
a[j,j]:=temp;
end;
writeln (' ');
sum:=0;
for i:= 2 to 7 do
for j:= 1 to i-1 do
sum:= sum+a[i,j];
writeln('summa pod glavnoi diagonalu =',sum:0:0);
writeln (' ');
for i:= 1 to 7 do
begin
writeln ('');
for j:= 1 to 7 do write(a[i,j]:3:0);
writeln
end;
readln
end.
в этой задаче упорядочивает главную диагональ в порядке возрастания.
Нужно срочно, т.к. сдаю отчет. пожалуйста помогите.

[4otenado]

for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i,i]>a[j,j] then


как из этого сделать, чтбы упорядочивало побочную диагонал?
Подскажите пож-та.

[eoln]

  for i:=1 to 6 do
  for j:=i+1 to 7 do
  if a[i,7-i+1]>a[j,7-j+1] then
  begin
    temp:=a[i,7-i+1];
    a[i,7-i+1]:=a[j,7-j+1];
    a[j,7-j+1]:=temp;
  end;

[4otenado]

Сообщение от eoln

  for i:=1 to 6 do
  for j:=i+1 to 7 do
  if a[i,7-i+1]>a[j,7-j+1] then
  begin
    temp:=a[i,7-i+1];
    a[i,7-i+1]:=a[j,7-j+1];
    a[j,7-j+1]:=temp;
  end;

большое спасибо. А то я оч. долго ломал над этим голову.