Наименьшее расстояние между локальными максимумами

[vadiprog]

Определите наименьшее расстояние между двумя локальными максимумами последовательности натуральных чисел, завершающейся числом 0. Если в последовательности нет двух локальных максимумов, выведите число 0.

Вот код на C++ а надо на Delphi

  int prv, cur, nxt, pos = 0, prv_max = 0, min_len = 0, cur_len;
  int count = 0;
  if (cin>>prv && prv)
  {
    if (cin >> cur && cur)
    {
      if (cin >> nxt)
      {
        pos = 2;
        while (nxt)
        {
          if ((prv < cur) && (cur > nxt))
          {
            if (prv_max != 0 )
            {
              cur_len = pos - prv_max;
              if (min_len == 0)
                min_len = cur_len;
              else
                min_len = min(min_len,cur_len);
            }
            prv_max = pos;
          }
          prv = cur;
          cur = nxt;
          cin >> nxt;
          pos++;
 
        }
      }
    }
  }
  cout<<min_len;

[Stilet]

Локальные максимумы это что?

[vadiprog]

Сообщение от Stilet

Локальные максимумы это что?

Это если число больше чем то что идёт перед ним и то что идёт после него первое и последние число не может быть локальным максимумом

[Stilet]

С потолка:

var 
 a:array[1..3] of double;
 lmpos,i,m:integer; 
begin i:=1;m:=0;lmpos:=0;
 repeat
  readln(a[1]); if a[1]=0 then break;
  readln(a[2]); if a[2]=0 then break;
  readln(a[3]); if a[3]=0 then break;inc(i,3);
  if (a[1]<a[2])and(a[2]>a[3]) then begin
   lmpos:=i;
   if (i-lmpos)<m then m:=i-lmpos;
  end;
 until false;
И выводим М
end.

Не проверял.