ПОСМОТРИТЕ И НАПИШИТЕ!!!!!!!

[evilcin]

Дан многомерный массив 5х5. Отсортировать главную диагональ в порядке убывания.
помогите пожалуйста. если можно полностью код заранее спасибо

[Mad_Cat]

const n=5;
var
a:array[1..n,1..n]of integer;
i,j:integer;
b:boolean;buf:integer ;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
b:=true;
while b do
begin
b:=false;
for i:=1 to n-1 do
if a[i,i]< a[i+1,i+1] then begin
b:=true;
buf:=a[i,i];
a[i,i]:=a[i+1,i+1];
a[i+1,i+1]:=buf;
end;
end;
writeln('========================');
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:4);
end;
writeln;
end;
end.

[evilcin]

спасибо большое

[evilcin]

а ты не можешь по проще написать?
а то мы еще не проходили writeln

[Mad_Cat]

а то мы еще не проходили writeln

вы в детском саду паскаль изучаете?