Помогите с информатикой, пожалуйста! ! паскаль

Question

В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму элементов массива, расположенных между первым и последним четными элементами. 
 Я составила программу, но преподаватель сказала, что мы не можем использовать BREAK, надо пользоваться WHILE... но я его совсем не понимаю.. . вообще не могу сообразить, куда его надо ставить.. . 
 
 Type massiv=array [1..20] of integer; 
 VAR a: massiv; 
 n,i,k,j, S: byte; 
 begin 
 Writeln ('n='); 
 readln (n); 
 randomize; 
 writeln (massiv'); 
 for i:=1 to n do 
 begin 
 write('a[',i,']='); 
 read(a); 
 end; 
 
 s:=0; 
 for i:=1 to n do 
 if (amod 2)=0 then 
 begin 
 k:=i+1; 
 break; 
 end;

for i:=k to n do 
 if (a mod 2)=0 then 
 j:=i-1;

for i:=k to j do 
 s:=s+a; 
 
 write('sum=',s) 
 end.

Татьянка · Accepted Answer

Вот пожалуйста без while и break. Только For

program abc; 
Var mass:array [1..1000] of integer; 
 n,max,min,i,S:integer; 
begin 
writeln('Vvedite kolichestvo elementov'); 
read(n); 
 
for i:=1 to n do begin 
read(mass); 
if mass mod 2 = 0 then max:=i; 
end; 
 
for i:=n downto 1 do 
if mass mod 2 = 0 then min:=i; 
 
for i:=min+1 to max-1 do 
s:=S+mass; 
 
writeln(S); 
end.

Александр Немчинов · Answer

Могу решить, но за вознаграждение. 
Если заинтересован, пиши на почту.