Из С++ в паскаль

[maks2020]

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

// 

#include <iostream>

#define NMAX 40000

using namespace std;

main()
{
    int n;
    
    cin >> n;
    
    int a[NMAX];
    int i;
    
    for (i=0; i<n; i++) cin >> a[i];
    
    int l = 0, r = n-1;
    while (!a[l]) l++;
    while (a[r]) r--;
    
    int Q[2] = {0,0};
    
    for (i=l; i<=r; i++) Q[a[i]]++;
    
    cout << (Q[0] < Q[1] ? Q[0] : Q[1]);
}

[Stilet]

Примерно так:

const nmax=40000;
var n,i,l,r:integer;
 a:array[1..nmax] of integer;
 q:array[1..2] of integer;
begin
 readln(n);
 for i:=1 to n do readln(a[i]);
 l:=0;r:=n-1;
 while a[l]<>0 do inc(l);
 while a[r]<>0 do dec(r);
 q[1]:=0;q[2]:=0;
 for i:=l to r do inc(q[a[i]]);
 if Q[0] < Q[1] then write(q[1]) else write(q[2]);
end.

[maks2020]

if Q[0] < Q[1] then write(q[1]) else write(q[2]); Константа нарушает границы

[NioTo]

const
  NMAX = 40000;

var
  n, i, r: LongInt;
  l: LongInt = 0;
  a: Array[0..NMAX - 1] of LongInt;
  Q: Array[0..1] of LongInt = (0, 0);

begin
  Read(n);

  for i := 0 to n - 1 do
    Read(a[i]);

  while a[l] = 0 do
    Inc(l);

  r := n - 1;
  while a[r] <> 0 do
    Dec(r);

  for i := l to r do
    Inc(Q[a[i]]);

  if Q[0] < Q[1] then
    Write(Q[0])
  else
    Write(Q[1]);
end.

[Stilet]

maks2020

Я с потолка писал, а вот твое упущение в тупом копипасте. Стоит подумать почему эта ошибка выбивается, почитав книгу по паскалю, где сказано о том как описывать массив и его границы.