Ошибки после компиляции

#include <vcl.h> //как я понял обязателен
#include <iostream.h>
#include <math.h>
 
using namespace std;
int m[50], mc[50]; //массивы
//-Заполнение массива рандомом-----------------------------------------------
    void ZapMas(int n)
 {
  randomize();
  for(int i=0; i<50; i++)
  m[i]=1 + rand()%100;
  }
//-Определенеие простого числа по теореме Вильсона---------------------------
long int factorial(int x)//функция находит факториал рекурсивным методом
 {
    return(x * factorial (x - 1));
 }
bool SimpleInt (int p)//считает логическое выражение и возвращает false,
                //если число составное, true, если число простое
 {
  return ((factorial (p-1)+1)%p==0);
 }
//-копирование простых чисел-------------------------------------------------
void CopyPCh(int n)
 {
    for (int i = 0; i < n; i++) {
    if (SimpleInt(m[i]) == true) {mc[i] = m[i];}
    }
 }
//-сортировка по методу пузырька по возвростанию-----------------------------
  void SortV(int n)
  {
  int i, j, b;
  for( i=0; i < n; i++) {
    for( j = n; j > i; j-- ) {
      if ( m[j-1] > m[j]) {
          b = m[j-1];
          m[j-1] = m[j];
          m[j] = b;
    }
   }
  }
 }
//-сортировка пузырьком по убиванию------------------------------------------
void SortU(int n)
 {
  int b, i, j;
  for (i = 0; i < n; i++) {
      for (j = 0; j < i; j++) {
          if ( mc[j+1] > mc[j]) {
              b = mc[j+1];
              mc [j+1] = mc[j];
              mc[j] = b;
          }
      }
  }
 }
//-вывод массивов------------------------------------------------------------
 void Out(int n)
 {
     cout << "Массив 1\tПростые числа";
     for (int i = 0; i < n; i++) {
          cout << m[i] << "\t" << mc[i];}
 }
//---------------------------------------------------------------------------
int main()
 {
  ZapMas(50);
  CopyPCh(50);
  SortV(50);
  SortU(50);
  Out(50);
  return 0;
 }
//---------------------------------------------------------------------------

long int factorial(int x)//функция находит факториал рекурсивным методом
 {
        return (x > 2)? (x * factorial (x - 1)) : 1;
 }

(условие) ? true : false;