ejercicio de como ordenar un array

PROGRAM ejer19 (input,output);
const
n=10;
TYPE
Tmatriz=Array [1..n]of integer;
VAR
A:Tmatriz;
i,x:integer;
PROCEDURE ordenar (var B:Tmatriz);
VAR
aux, i, j: integer;

BEGIN
i:=1;
j:=1;


for i:= 1 to n do
for j:= 1 to (n-i) do
if (B [j+1]
begin
aux:= B[j+1];
B[j+1]:=B[j];
B[j]:=aux;
end;


end;
BEGIN
x:=1;
WRITE('ESCRIBE 10 NUMEROS:');
FOr i:=1 to n do begin
read(A[i]);
END;
ordenar(A);
FOR x:=1 to n do
BEGIN
write(A[x]);
END;
END.