Помогите решить, не получается. Любое решение.

Question

Даны
натуральные числа и последовательность 
А=(а1,а2,...аn)-
усных чисел. Найти номер последнего нечётного члена последовательности А.

Алексей Богданов · Accepted Answer

Код Pascal 
{Даны целые числа а1, а2,...а50. Определить номер последнего нечетного члена этой последовательности. } 
Program poisk; 
const 
 n=50; 
var 
 a: array[1..n] of integer; 
 j,k: integer; 
begin 
 k:=0; 
 for j:=1 to n do 
 begin 
 a[j]:=random(99); 
 write(a[j],' '); 
 if (a[j] mod 2)>0 then 
 k:=j; 
 end; 
 writeln; 
 writeln('K = ',k); 
end.