В одномерном массиве А, состоящем из 12 целых чисел, все положительные элементы заменить пятеркой.

var   A: array [1..12] of integer;  //Одномерный массив из 12 целых чисел   i: integer;     begin   for i:= 1 to 12 do  //Вводим элементы массива с клавиатуры   begin     writeln('Введите A[', i, ']');     readln(A[i]);   end;   write('Исходный массив:  ');  //Выводим исходный массив   for i:= 1 to 12 do     write(A[i], '  ');   writeln;  //Перевод на новую строку   write('Измененный массив:  ');   for i:= 1 to 12 do   {Изменяем все положительные элементы на 5 и распечатываем полученный массив}   begin     if A[i] > 0 then A[i]:= 5;      write(A[i], '  ');   end;   writeln;  {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки} end. Если все правильно, отметь решение как лучшее)