В массив X(k) найти сумму частей и их количество до первой

Var
   X:array[1..100] of integer;
   i,k:integer;
   S:real;
Begin
S:=0;
Write('k = ');ReadLn(k);
Write('Введите массив X[',k,']: ');
For k:= 1 to k do
    Read(X[k]);
i:=1;
if X[1]lt;0 then
   Begin
   While (ilt;=k)and(X[i]lt;0) do
      Begin
      S:=S+X[i];
      i:=i+1;
      End;
   End
else
   Begin
   While (ilt;=k)and(X[i]gt;=0) do
      Begin
      S:=S+X[i];
      i:=i+1;
      End;
   End;
WriteLn('S = ',S);
End.