Паскаль. Массив состоит из 20 положительных и отрицательных целых чисел избранных

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программка не работает, обновите версию!
// Индексация с нуля, поэтому i+1 в выводе

begin
var a:= ArrRandom(20,-10000,10000);a.Println;
Writeln('Положительные');
  for var i:= 0 to 19 do
    if a[i] gt; 0 then
    Writeln(i + 1,' -gt; ', a[i]);
Writeln();
Writeln('Отрицательные');
  for var i:= 0  to 19 do
    if a[i] lt; 0 then
    Writeln(i + 1,' -gt; ', a[i]);
end.

Вот так вот я сделал...