Найти количество элементов, значение которых более чем в два раза превосходит значение предшествующего - PascalABC.NET

Формулировка задачи:

Привет. Срочно уезжаю. Нужна помощь. Легкие задачи на массивы. Дан массив, содержащий 2014 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество элементов, значение которых более чем в два раза превосходит значение предшествующего элемента. Например, для массива из 6 элементов, содержащего числа 2, 5, 10, 15, 40, 100, программа должна выдать ответ 3 (условию соответствуют элементы со значениями 5, 40 и 100). Программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.

const N = 2014;
var a: array [1..N] of integer;
i, j, k: integer;
begin
for i:=1 to N do
 readln(a[i]);
…
end.

Заранее благодарю. Без "Спасибо" Вас не оставлю! P.S. Уважаемая администрация, не удаляйте мои темы из-за их похожести

Решение задачи: «Найти количество элементов, значение которых более чем в два раза превосходит значение предшествующего»

textual
                            Листинг программы 
                        

                            CONST
  N = 2014;
VAR
  a: Array [1..N] of integer;
  i, j, k: integer;
BEGIN
  For i := 1 to N do
    Readln(a[i]);
 
  For i := 2 to N do
    If (2*a[i-1] < a[i]) then Inc(k);
    
  Write(k);
END.
                        