ошибки в задаче. какие?

[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]. упорядочить элементы в каждой строке матрицы по убыванию.
что здесь не так?

[Zer0]

t:=A[i,j+1];
A[i,j]:=A[i,j+1];
A[i,j+1]:=t;

Ошибка в первой строке, должно быть:

t:=A[i,j];

Еще ошибка в цикле - сейчас он будет сортировать по возрастанию, а не убыванию, подумайте сами, что именно надо поменять