даны натур. число n, действ. числа y1..yn.Найти z1+..+zn, где zi=yi при 0

Question

Доброго времени суток, уважаемые! 
 
 const n=100; 
var y,z:array[1..n] of integer; 
 
i: byte; 
summa:integer; 
 
begin 
summa:=0; 
for i:=1 to n do 
if (y>0) and (y<10) then summa:=summa+z 
else 
 z:=1; 
 writeln(summa); 
end. 
 
вот текст программы, но что то тут не правильно. Подскажите!

Олеся. Цухт. · Accepted Answer

А где индекс массива? Почему счетчик цикла тип byte(хотя пох) 
i : integer; 
if (y[n]>0) and (y[n]<10) then summa:=summa+z

Ольга Метелькова · Answer

program proga; 
uses crt; 
const n=10; 
var y:array[1..n] of integer; 
z:array [1..n] of integer; 
i: integer; 
summa:integer; 
begin 
summa:=0; 
for i:=1 to n do 
begin 
read(y); 
end; 
for i:=1 to n do 
begin 
if (y>0) and (y<10) then 
begin 
z:=y; 
summa:=summa+z; 
end 
else 
z:=1; 
end; 
writeln('summa:',summa); 
readln; 
end.