Программирование задачи обработки вектора на языке Pascal ABC

[Алдарик]

В вещественом векторе Z(n) подсчитать сумму элементов, расположеных на четных местах. подправте пожалуста
program lab_4;
var z: array[1..30] of real;
min, s, p: real;
i, k, n, nom: byte; { i – параметр цикла, n – фактическое число элементов в векторе }
begin
write(Введите число элементов;
readln(n);
s:=0; p:=1; k:=0;
write(Введите элементы через пробел;
for i:=1 to n do
read(z[i]);
for i:=1 to n do
begin
if z[i]>0 then s:=s+z[i]
else if z[i]<0 then p:=p*z[i]
else k:=k+1;
if min>z[i] then begin
min:= z[i]; nom:=i
end
end;
writeln(S=,s:7:1, P=,p:7:1, K=,k);
writeln(MIN=,min:5:1, его место=,nom);
end.

[ZX Spectrum-128]

Вот это решение
http://programmersforum.ru/showthread.php?t=255197
чем не подошло?