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

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