массив в паскале

[Olgaandsasha]

Program kr5;
var
A: array [1..10,1..15] of Integer;
i, j, k, t: Integer;
begin
randomize;
writeln ('massiv A=');
for i:=1 to 10 do
begin
for j:=1 to 15 do
begin
A[i,j]:=-60+random(101);
write(A[i,j]:5);
end;
writeln;
end;
for i:=1 to 10 do
for k:=1 to 14 do
for j:=1 to 15-k do
if A[i,j]>=A[i,j+1] then begin
t:=A[i,j+1];
A[i,j]:=A[i,j+1];
A[i,j+1]:=t;
end;
write;
for i:=1 to 10 do
for j:=1 to 15 do
write(A[i,j]:5);
readln;
end.задание:
дана матрица А[10,15]. упорядочить элементы в каждой строке матрицы по убыванию.
что здесь не так? помогите пожалуйста.