Перевести программу с с++ на паскаль

int prv, cur;
  cin >> prv;
  if (prv)
  {
    cin >> cur;
    int count = 1, count_max = 1;
    int sgn_prv = cur - prv, sgn_cur;
 
    while (cur)
    {
      sgn_cur = cur - prv;
      if (sgn_prv * sgn_cur > 0)
        count++;
      else
        if (sgn_prv * sgn_cur == 0)
          count = 1;
        else
          count = 2;
      count_max = max(count_max, count);
      sgn_prv = sgn_cur;
      prv = cur;
      cin >> cur;
    }
    cout << count_max;
  }
  else
    cout << 0;

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;
 
3) 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;