Сортировка массива

[bwitcher]

Всем привет! Не могли бы вы подсказать, где ошибочка?
Сортировать одномерный массив А(n), состоящий из целых чисел, по убыванию.

Program MyProg;
Var
A:array[1..n] of integer;
i,k:integer;
max:integer;
begin
writeln('Введите размерность массива');
readln(n);
for i:=1 to n do begin
writeln('Введите элементы последовательности №',i);
readln(A[i]);
end;
for i:=1 to n do begin
for k:=1 to n-1 do begin
if A[k]>A[k-1] then begin
max:=A[k];
A[k]:=A[k+1];
A[k+1]:=max;
end;
end;
for k:=1 to n do 
writeln(A[k]);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[CepbIu]

Program MyProg;
Var
m:array[1..10] of byte;
i,j,n,a:byte;
begin
writeln('Введите размерность массива');
readln(n);
for i:=1 to n do begin
writeln('Введите элементы последовательности №',i);
readln(m[i]);
end;
for i:=1 to N-1 do
for j:=i+1 to N do
if m[i]<m[j] then
begin
a:=m[i];
m[i]:=m[j];
m[j]:=a;
end;
for i:=1 to n do 
writeln(m[i]);
end.

[bwitcher]

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