Помогите пожалуйста....... Информатика Составить программу, которая формирует массив из 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]     writeln(A[, i:2, ]=, a[i]:3);
  end;
  readln
end.