[Паскаль] Сформировать одномерный массив

[KnoWabLe]

Собственно задача:

Дан массив {X} размерностью n.
Нужно: Cформировать одномерный массив {Y} размерностью k таким образом, чтобы он содержал такие элементы из массива {X} которые не менее чем в L раз превышают значения соседнего справа элемента.

Мое решение:

program ex1;
var
   i,k,l,n: integer;
   x: array [1..20] of integer;
   y: array [1..20] of integer;
begin
   k:=0;
   l:=2;
   n:=10;
   begin
   for i:=n-1 to 1 do
     if x[i] div x[i+1] >= L then
      begin
      k:=k+1;
      y[k]:=x[i];
      end;
   end;
 write(y[k]:2);
 writeln;
end.

Паскаль выдает ошибку №200. Помогите пожалуйста исправить и привести к необходимому виду(чтобы выводило правильный в соответствии с зачадей массив y), спасибо.