помогите решить задачу или подскажыте ошибку плизз

[Bickw]

Дан одномерный массив чисел {v} i:=1...15.найти первое отрецательное число и подсчитать сумму и количество положительных чисел стоящих после него !!!

program Lab5;
var v:array[1..15]of real;
i,j:integer;
s,k:real;
begin
for I:=1 to 15 do
readln (v[i]);
i:=1;
K:=0;
s:=0;
for j:=i+1 to 15 do
if v[i]>0 then
begin
s:=S+v[j];
k:=k+1;
end;
writeln('s=',s:4,'k=',k:4,'i=',I :4);
end.

[profi]

program Lab5;
uses crt;
var v:array[1..15]of real;
i,j,otr:integer;
s,k:real;
begin clrscr;
for I:=1 to 15 do
readln (v[i]);
K:=0;
s:=0;
for i:=1 to 15 do
    if v[i] < 0 then
       begin
            otr:=i;
            break;
       end;
for j:=otr to 15 do
if v[j]>0 then
begin
s:=S+v[j];
k:=k+1;
end;
writeln('s=',s,' k=',k);
end.

[Stilet]

А так не проще?:

  var v:array[1..15]of real;
  b:boolean;            sum:real;i,cnt:byte;
 begin
 b:=false;
 for i:=1 to length(v) do begin
  v[i]:=random(50)/2-10; write(v[i]:7:2,' ');
  if v[i]<0 then b:=true;
  if (b)and(v[i]>0) then begin sum:=sum+v[i];inc(cnt);end;
 end; writeln;
 write(sum:5:2,'  ',cnt);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.