Создать массив на 100 случайных чисел из диапазона от -1000 до 1000. первые 50 по возрастающей вторые 50 по убывающей (Паскаль)

Var a,b,c,i:integer; d:array [1..1000] of integer; begin randomize; writeln('введите число'); readln(a); for i:=1 to a do begin d[a]:=random(-100,100); writeln(d[a]); if (d[a]>0) and (d[a] mod 2 = 0) then c:=c+d[a]; end; writeln('ответ : ',c); end. Держи

// Pascal ABC.Net версия 3.2 сборка 1387 begin writeln('исходный массив:'); var a:=ArrRandom(100,-1000,1000).Println(); writeln('1 50 по возр:'); a.Reverse().Skip(50).Sorted().Println(); writeln('2 50 по убыв:'); a.Skip(50).SortedDescending().Println(); end.