Упорядочить массив по убыванию из 10 случайных чисел на промежутке от -500 до 500. Информатика, 9 класс.

program q186693969;
const
n = 10;
var
i, j: Integer;
a: array[1..n] of Integer;
begin
Randomize;
for i := 1 to n do
begin
a[i] := Random(500 - - 500 + 1) - 500;
Write(a[i]:5);
end;
WriteLn;
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] < a[j] then
begin
a[i] := a[i] xor a[j];
a[j] := a[j] xor a[i];
a[i] := a[i] xor a[j];
end;
for i := 1 to n do
Write(a[i]:5);
Readln;
end.

или

program q186693969;
const
n = 10;
var
a: array[1..n] of Integer;

procedure Print(a: array of Integer);
var
i: Integer;
begin
for i := Low(a) to High(a) do
Write(a[i]:5);
WriteLn;
end;

procedure Rand(var a: array of Integer);
var
i: Integer;
begin
Randomize;
for i := Low(a) to High(a) do
a[i] := Random(500 - -500 + 1) - 500;
end;

procedure Sort(var a: array of Integer);
var
i, j: Integer;
begin
for i := Low(a) to Pred(High(a)) do
for j := i + 1 to High(a) do
if a[i] < a[j] then
begin
a[i] := a[i] xor a[j];
a[j] := a[j] xor a[i];
a[i] := a[i] xor a[j];
end;
end;

begin
Rand(a);
Print(a);
Sort(a);
Print(a);
Readln;
end.

К отвечающему выше, здесь правда даж соображать почти не надо. Хоть по минимуму мозг включи. Гуглили? плохо гуглили. Это задание элементарнейшее. И уж если хочешь, чтоб тебе помогли, выкладывай код отформатированный, а не этот столбик. и Полную информацию об ошибках.

Procedure nm;
Var
i:Integer;
Begin
i:Integer;
Begin

В какой строке выдает ошибку?