Дан массив из n чисел. Найти номер первого чётного элемента массива; если чётных элементов нет, то ответом должно быть число 0.
помогите написать программу в паскаль.

program zadanie;const lmax=10;var n,i:integer; a:array [1..lmax] of integer; n1:real; flag: boolean;beginrepeat      writeln('Введите длину массива меньше ',lmax);      read(n1);until (n1>0) and (n1<=lmax) and (n1=round(n1));n:=round(n1);writeln('Введите целые элементы массива');for i:=1 to n do    begin    repeat          read(n1);          if (n1<>round(n1)) then writeln('Введите ЦЕЛЫЙ элемент');    until (n1=round(n1));    a[i]:=round(n1);    end;flag:=false;i:=0;     repeat     i:=i+1;     if (a[i]mod 2=0) then        begin        flag:=true;        writeln('Номер первого четного элемента - ',i);        end;     until flag or (i=n);if (flag=false) then writeln('0')end.