Переписать с Паскаля на С++

program ClassificationYard;
 
const
  Nmax = 100;
type
  TRailroadCars = (TypeA, TypeB);
  TArray = array [1..2 * Nmax] of TRailroadCars;
 
  procedure ShowStream(const A: TArray; N: integer);
  var
    i: integer;
  begin
    Write('< ');
    for i := 1 to N do
      if A[i] = TypeA then
        Write('A')
      else
        Write('B');
    writeln(' >');
  end;
 
  procedure ShowState(const Ain, Aout, Ad: TArray; const Nin, Nout, Nd: integer);
  begin
    writeln('In stream:');
    ShowStream(Ain, Nin);
    writeln('Out stream:');
    ShowStream(Aout, Nout);
    writeln('Railway deadlock:');
    ShowStream(Ad, Nd);
  end;
 
  {операция МИМО}
  procedure MovePassBy(var Ain, Aout, Ad: TArray; var N, Nin, Nout, Nd: integer);
  begin
    Inc(Nout);
    Aout[Nout] := Ain[2 * N - Nin + 1];
    Dec(Nin);
  end;
 
  {операция В}
  procedure MoveIn(var Ain, Aout, Ad: TArray; var N, Nin, Nout, Nd: integer);
  begin
    Inc(Nd);
    Ad[Nd] := Ain[2 * N - Nin + 1];
    Dec(Nin);
  end;
 
  {операция ИЗ}
  procedure MoveOut(var Ain, Aout, Ad: TArray; var N, Nin, Nout, Nd: integer);
  begin
    Inc(Nout);
    Aout[Nout] := Ad[Nd];
    Dec(Nd);
  end;
 
var
  RailwayDeadlock,  {тупик}
  InStream,         {входной поток}
  OutStream: TArray;{выходной поток}
  N:  integer;      {количество вагонов каждого типа}
  Nin,              {текущее количество вагонов во входном потоке}
  Nout,             {текущее количество вагонов в выходном потоке}
  Nd: integer;      {текущее количество вагонов в тупике}
  temp: TRailroadCars;
  i, i1, i2: integer;
begin
  {инициализация}
  N  := 10;
  Nin := 2 * N;
  Nout := 0;
  Nd := 0;
  { - заполнение входного потока и перемешивание}
  Randomize;
  for i := 1 to N do
  begin
    InStream[i] := TypeA;
    InStream[N + i] := TypeB;
  end;
  for i := 1 to 2 * N do
  begin
    i1 := random(2 * N) + 1;
    i2 := random(2 * N) + 1;
    temp := InStream[i1];
    InStream[i1] := InStream[i2];
    InStream[i2] := temp;
  end;
  {визуализация начального состояния}
  writeln('Before:');
  ShowState(InStream, OutStream, RailwayDeadlock, Nin, Nout, Nd);
  {решение}
  { - 1-й вагон сразу отправляем в выход}
  MovePassBy(InStream, OutStream, RailwayDeadlock, N, Nin, Nout, Nd);
  while (Nin > 0) or (Nd > 0) do
  begin
    {проверяем возможность взять вагон из тупика}
    if Nd > 0 then
      if RailwayDeadlock[Nd] <> OutStream[Nout] then
      begin
        MoveOut(InStream, OutStream, RailwayDeadlock, N, Nin, Nout, Nd);
        continue;
      end;
    {проверяем возможность взять вагон из входного потока}
    if Nin > 0 then
      if InStream[2 * N - Nin + 1] <> OutStream[Nout] then
      begin
        MovePassBy(InStream, OutStream, RailwayDeadlock, N, Nin, Nout, Nd);
        continue;
      end
      else
      begin
        MoveIn(InStream, OutStream, RailwayDeadlock, N, Nin, Nout, Nd);
        continue;
      end;
    break;{в случае ошибки}
  end;
  {вывод результатов}
  writeln('After:');
  ShowState(InStream, OutStream, RailwayDeadlock, Nin, Nout, Nd);
end.