Помогите пожалуйста.......
Информатика
Составить программу, которая формирует массив из 12 случайных целых чисел,
принадлежит промежутку [ -20, 20 ], заменяет отрицательные числа на -1 и выводит
значения элементов массива до и после замены. :-)

var  a: array [1..12] of integer;  i: integer;begin  writeln('Начальный вид массива:');  for i := 1 to 12 do   begin    a[i] := -20 + random(41);    writeln('A[', i:2, ']=', a[i]:3);  end;  writeln('Конечный вид массива:');  for i := 1 to 12 do   begin    if a[i] < 0 then a[i] := -1;    writeln('A[', i:2, ']=', a[i]:3);  end;  readlnend.