Одномерный массив. Определить количество элементов, один из которых в 2 раза больше предыдущего

const
  nmax=500;
var
  a: array[1..nmax] of integer;
  n,i,s,k,max: integer;
  boo: boolean;
begin
  randomize;
  max:=-32768; boo:=false;
  write('vvedite razmer massiva: ');
  readln(n);
  for i:=1 to n do
  begin
    a[i]:=random(10);
    write(a[i]:3);
    if a[i]>max then
    begin
      max:=a[i];
      k:=i
    end;
  end;
  writeln;
 
  for i:=k+1 to n do
    if (a[i-1]<>0)and(a[i]/a[i-1]=2) then inc(s);
  writeln('v massive posle ',k,'-go elementa takih par ',s);
  readln;
end.

const
  nmax=500;
var
  a: array[1..nmax] of integer;
  n,i,s,k,max: integer;
begin
  randomize;
  max:=-32768; {за максимальное принимаем заведомо минимальное
                 чтобы с ним сравнивать все элементы}
  write('vvedite razmer massiva: ');
  readln(n);
  {здесь создаем массив}
  for i:=1 to n do
  begin
    a[i]:=random(10);   {случайный из чисел от 0 до 9}
    write(a[i]:3);
    if a[i]>max then
    begin
      max:=a[i];  {находим максимальное значение массива}
      k:=i        {и индекс максимального}
    end;
  end;
  writeln;
 
  for i:=k+1 to n do  {начиная от следующего за максимальным..}
    if (a[i-1]<>0)  {проверяем не равен ли нулю, потому что на ноль делить нельзя}
    and(a[i]/a[i-1]=2) {делим итый элемент на предыдущий}
 
    then inc(s);   {увеличиваем счетчик}
  writeln('v massive posle ',k,'-go elementa takih par ',s);
  readln;
end.

const
  nmax=500;
var
  a: array[1..nmax] of integer;
  n,i,s,k,max: integer;
begin
  randomize;
  max:=-32768; {за максимальное принимаем заведомо минимальное
                 чтобы с ним сравнивать все элементы}
  write('vvedite razmer massiva: ');
  readln(n);
  {здесь создаем массив}
  for i:=1 to n do
  begin
    a[i]:=random(10);   {случайный из чисел от 0 до 9}
    write(a[i]:3);
    if a[i]>max then
    begin
      max:=a[i];  {находим максимальное значение массива}
      k:=i        {и индекс максимального}
    end;
  end;
  writeln;
 
  for i:=k+1 to n do  {начиная от следующего за максимальным..}
    if (a[i-1]<>0)  {проверяем не равен ли нулю, потому что на ноль делить нельзя}
    and(a[i]/a[i-1]=2) {делим итый элемент на предыдущий}
 
    then
    begin
      inc(s);   {увеличиваем счетчик}
      writeln(i,'-i ',i-1,'-i');
    end;
  writeln('v massive posle ',k,'-go elementa takih par ',s);
  readln;
end.