С клавиатуры вводиться n заданных чисел a1, a2, a3,….. an .Найдите номер первого четного числа последовательности чисел. Если четных чисел нет, ответ 0 — Pascal(Паскаль)

VAR
  n, i: INTEGER;
  A: ARRAY[1..1000] OF INTEGER;
BEGIN
  WRITE('n=');
  READLN(n);
  WRITELN('Enter array[', n, ']:');
  FOR i := 1 TO n
  DO
    READ(A[i]);
  i := 0;
  WHILE i <= n
  DO
    BEGIN
      i := i + 1;
      IF A[i] MOD 2 = 0
      THEN
        Break
    END;
  WRITELN('x=', A[i]);
  READLN
END.