var
i, n, a, m : integer;
begin
writeln('введите последовательность чисел: ');
repeat
read(a);
i += 1;
if (a mod 2 = 0) and (a > m) then begin
n := i;
m := a;
end;
until a = 0;
writeln('номер наибольшего четного члена ', n);
end.
программа работает без массива, она исчет номер нужного члена на лету по мере ввода данных. Эту задачу можно решить и по другому, забив данные в массив и затем найти там искомое значение. На результат это не влияет но во втором случае программа несколько усложнится.