Локальный максимум Delphi

[vadiprog]

Элемент последовательности называется локальным максимумом, если он строго больше предыдущего и последующего элемента последовательности. Первый и последний элемент последовательности не являются локальными максимумами.
Дана последовательность натуральных чисел, завершающаяся числом 0. Определите количество строгих локальных максимумов в этой последовательности.
Числа, следующие за числом 0, считывать не нужно.

Напишите пожалуйста программу.

Вот её решение на С++ мне надо на Delphi

int prv, cur, nxt;
  int count = 0;
  if (cin>>prv && prv)
  {
    if (cin >> cur && cur)
    {
      if (cin >> nxt)
      {
        while (nxt)
        {
          if ((prv < cur) && (cur > nxt))
            count++;
          prv = cur;
          cur = nxt;
          cin >> nxt;
        }
      }
    }
  }
  cout << count;

[Mad_Cat]

i:=2;k:=0;
while a[i+1]<>0  do begin
if (a[i]>a[i-1]) and (a[i]>a[i+1]) then k:=k+1;
i:=i+1;
end;

[vadiprog]

Нельзя использовать массивы

[Mad_Cat]

Нельзя использовать массивы

readln(prv,cur,nxt); 
k:=0;
while (nxt*prv*cur) <>0 do begin
if (prv<cur) and (cur>nxt) then k:=k+1;
prv:=cur;
cur:=nxt;
readln(nxt);
end;

[vadiprog]

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

readln(prv,cur,nxt); 
k:=0;
while nxt <>0 do begin
if (prv<cur) and (cur>nxt) then k:=k+1;
prv:=cur;
cur:=nxt;
readln(nxt);
end;

Спасибо, я вам запрос в скайп отправил, добавьте пожалуйста.