помогите пожалуйста. паскаль

Question

program z11; 
var a:array[1..5,1..5] of integer; 
k,s,i,j:integer; 
begin 
for i:=1 to 5 do 
for j:=1 to 5 do a[i,j]:=random(10); 
 
for s:=1 to 5 do 
for i:=1 to 4 do 
for j:=1 to 4 do 
if a[i,j]>a[i+1,j+1] then begin 
k:=a[i,j]; 
a[i,j]:=a[i+1,j+1]; 
a[i+1,j+1]:=k; 
end; 
for i:=1 to 10 do begin 
for j:=1 to 10 do 
write (a[i,j]); 
writeln; 
end; 
end. 
почему не выводить по убыванию массив? ? и вообще выводит в строчку 5 цифр, и пишет 6-выход за границы диапазона изменения индекса 1..5 строка 18

то есть чтобы числа в разноброс 8960586567 оказались в правильном порядке

Анна Шаповалова · Accepted Answer

Всмысле по-убыванию? 
 
тоесть так: 
9 8 7 
6 5 4 
3 2 1 
 
?

Ксёна Кошка · Answer

а собственно, как я понимаю, вы хотите отсортировать массив чисел? Так зачем же вы используете матрицу? 
const n=100; 
type 
mass=array[1..n] of integer; 
 procedure sort(a:mass); 
var t:integer;b:boolean; 
begin 
b:=false; 
for i:=1 to n-1 do 
 if a[ i ] > a[ i + 1 ] then 
begin 
t:=a[ i ]; 
a[ i ]:=a[ i+1 ]; 
a[ i+1 ]:= t; 
b:=true; 
end; 
if b=true then 
 sort(a); 
end;

Игорь Коробков · Answer

Пузырьковая сортировка у Вас странная, а в 18-й строке выход за пределы диапазона, потому что циклы до 10 строк и столбцов, а массив определен из 5 строк и 5 столбцов.