Одномерный массив

[Алeксандр]

Дан массив Х(N). Вычислить сумму и количество элементов массива Х, при xi>0, N<=10.
program massiv;
uses crt;
var
X:array [1..10] of real;
I:integer;
S:real;
K:integer;
begin
clrscr;
S:=0;
K:=0;
for I:=1 to N do
begin
Write('vvedite X(I)');
readln(X[I]);
end;
if X[I]>0 then
begin
S:=S+X[I];
K:=K+1;
Writeln(I);
writeln('S=',S:6:2);
writeln('K=',K);
readln;
end;
end.
В задаче есть ошибка, считается только последнее введеное X
а мне нужно сумма и кол-во всех элементов.

[maladoy]

crt;
var
X:array [1..10] of real;
I:integer;
S:real;
K:integer;
begin
clrscr;
S:=0;
K:=0;
for I:=1 to 10 do
begin
Write('vvedite X(I)');
readln(X[i]);
end;
for i:=1 to 10 do
if X[i]>0 then
begin
S:=S+X[i];
K:=K+1;
end;
writeln('S=',S:6:2);
writeln('K=',K);
readln;
end;
end.

[pomoshnic]

И еще, вот это:

Write('vvedite X(I)');

Нужно заменить на:

Write('vvedite X(',I,')');

[Алeксандр]

Бальшое СПАСИБО за всё.