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

Program xa;
var
  a:array[1..12] of integer;
  i,n:integer;
begin
  repeat
   Writeln('BBedute n');
   Write('n=');
   readln(N);
  until (n>0) and (n<13);
  Writeln('BBedute cam MaccuB');
  for i:=1 to n do
  begin
    Write('A[' ,i, ']=');
    readln(a[i])
  end;
  Writeln;
  Writeln('maccuB do u3meHeHUu');
  for i:=1 to n do
    Write(a[i], ' ');
  for i:=1 to n do
    if a[i] mod 2 = 0 then
      a[i]:=5;
  Writeln;
  Writeln('maccuB nocle u3meHeHUu');
  for i:=1 to n do
    Write(a[i], ' ');
  readln
end.