Как исправить критическую ошибку no label general protection fault!

Uses  crt;const  nmax=100;var  a1,a2: array[1..nmax] of integer;  n,i,b,k,s: integer;begin  randomize;  clrscr;  repeat    write('Введите размер массива n (n in [1..',nmax,']): ');    readln(n);    write('Введите число B (0<B<100): ');    readln(b);  until (n in [1..nmax]) and (b in [1..99]);  writeln('Массив A1');  for i:=1 to n do  begin    a1[i]:=random(99);    write(a1[i]:4);    if a1[i]>b then    begin      inc(k);      a2[k]:=i;      s:=s+a1[i];    end;  end;  writeln;  writeln('Среднее элеметов, больших B = ',s/k:0:2);  writeln('Массив A2:');  for i:=1 to k do write(a2[i]:4);  readln;end.

#include <iostream>
#include <conio.h>

using namespace std;

int main()
{
    setlocale(LC_ALL , "");

    int S(0), N(0);

    cout << "Введите значение N: ";
    cin >> N;

    int Number_array[N];

    for(int i(0); i < N; i++)
    {
        cout << "Введите " << i+1 << " число: ";
        cin >> Number_array[i];
    }

    for(int i(0); i < N; i++)
    {
        if(Number_array[i] == 0)
        S++;
    }

    if(S != 0)
    cout << "В последовательности N ноль встречается " << S << " раз." << endl;
    else
    cout << "В последовательности N ноль не встречается." << endl;

    _getch();
    return 0;
}