В целочисленном массиве произвести сортировку только четных элементов - Turbo Pascal

Формулировка задачи:

Дан цель численный массив. Требуется расположить четные элементы в порядке возрастания. При этом нечетные элементы остаются на своих местах и с ними никаких действий не производится. Один вопрос: Почему Паскаль выдаёт ошибку (например) a:= random(10) - 5; Но a:= -5 +random(10); - а так все нормально??

Program O;
uses Crt;
var
   i,j,k,l,n : integer;
   a : array[1..10] of integer;
   x : array[1..10] of integer;
   y : array[1..10] of integer;
 
label 100;
 
begin
   n:= 10;
   for i:= 1 to n do x[i]:= 0;
   for i:= 1 to n do y[i]:= 0;
   randomize;
   clrscr;
   for i:= 1 to n do
      begin
         a[i]:= -10 + random(20);
         write(a[i]:4)
      end;
 
   k:= 0;
   for i:= 1 to n do
      if a[i] mod 2 = 0 then k:= k+1;
 
   if k < 2 then goto 100;
 
   j:= 1;
   for i:= 1 to n do
      if a[i] mod 2 = 0 then
         begin
            x[j]:= a[i];
            y[j]:= i;
            j:= j+1
         end;
 
   for j:= 1 to k-1 do
   for i:= 1 to k-1 do
      begin
         if x[i] > x[i+1] then
            begin
               l:= x[i];
               x[i]:= x[i+1];
               x[i+1]:= l
            end;
         if y[i] > y[i+1] then
            begin
               l:= y[i];
               y[i]:= y[i+1];
               y[i+1]:= l
            end;
      end;
 
   for i:= 1 to k do
      a[y[i]]:= x[i];
 
   writeln;
100:
   for i:= 1 to n do
         write(a[i]:4);
end.

Решение задачи: «В целочисленном массиве произвести сортировку только четных элементов»

Листинг программы

for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i] mod 2=0)and(a[j] mod 2=0)and(a[i]>a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;

Объяснение кода листинга программы

Данный код выполняет сортировку только четных элементов в массиве. Для этого используется два вложенных цикла for. Первый цикл идет от 1 до n-1, второй - от i+1 до n. Внутри циклов проверяется, является ли текущий элемент четным (a[i] mod 2=0). Если это так, то сравнивается следующий элемент с текущим. Если текущий элемент больше следующего, то они меняются местами. В конце каждого внутреннего цикла значение переменной x присваивается значению переменной a[i], а значение a[i] присваивается значению a[j].