Поиск места (номера элемента) в массиве, где первый раз подряд встречаются два четных числа. Длина массива вводится с клавиатуры. Печатать элементы массива по 10 штук формату «:6» — Pascal(Паскаль)

program massiv;

uses crt;

var
  i, n, mesto: integer;
  a: array [1 .. 100] of integer;

begin
  write('razmer massiva N= ');
  readln(n); { считываем размер массива }
  writeln('Vvedite elementy massiva:');
  for i := 1 to n do
  begin
    write('A[', i, ']= ');
    readln(a[i]);
  end; { считываем элементы массива }

  clrscr;
  write('A: ');
  for i := 1 to n do
    write(a[i]:6, ' '); { выводим массив }

  for i := 2 to n do
    if (a[i - 1] mod 2 = 0) and (a[i] mod 2 = 0) then
    begin
      mesto := i - 1;
      break;
    end;

  writeln;
  writeln;
  writeln('Position: ', mesto); { выводим результат }

  readln;

end.