Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: • удвоенную сумму

USES Crt;
 VAR
   A:ARRAY[0..10] OF INTEGER;
   I: BYTE;   S,K: INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO 10 DO Begin
     Write('Введите ',I,' злемент массива ');  ReadLn(A[I]);
   End;   WriteLn;
   S:=0; K:=0;
   WriteLn(' Индексы элементов, значения которых > значения предыдущего элемента');
   FOR I:=1 TO 10 DO Begin
     IF (A[I]>0) THEN S:=S+A[I];
     IF I<>1 THEN IF A[I] > A[I-1] THEN Write(I:3);
     IF I<>10 THEN IF (A[I] * A[I+1])>0 THEN K:=K+1;
   End;   WriteLn;
   WriteLn(' Удвоенная сумма положительных элементов = ',S*2);
   WriteLn(' Количество пар соседних элементов с одинаковыми знаками = ',K);
 END.