Паскаль. Массив состоит из 20 положительных и отрицательных целых чисел выбранных случайно. Выведите исходный массив. А затем в отдельных строчках положительные элементы массива с указанием порошкового номера и отрицательные элементы массива с указанием порядкового номера. ОЧЕНЬ НУЖНО! СРОЧНО!

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!// Индексация с нуля, поэтому i+1 в выводеbeginvar a:= ArrRandom(20,-10000,10000);a.Println;Writeln('Положительные');  for var i:= 0 to 19 do    if a[i] > 0 then    Writeln(i + 1,' -> ', a[i]);Writeln();Writeln('Отрицательные');  for var i:= 0  to 19 do    if a[i] < 0 then    Writeln(i + 1,' -> ', a[i]);end.