DELPHI --> C++

procedure TfrmExpertSystem.btnStartClick(Sender: TObject);
var vars:integer;
      svars:array of string;
      values:array of integer;
      rules:array of integer;
      outcome1,outcome2:string;
      A:string;
     decision:integer;
     i:integer;
begin
 
    //строка 10, аналог команды CLR
    mmPrintFiled.Lines.Clear;
 
    //строки 20-30
    print('Введите количество утверждений');
    vars:=StrToInt(Input);
    SetLength(values,vars);
    SetLength(rules,vars);
    SetLength(svars,vars);
 
    //строки 40-70 иницализация массивов
    for i:=Low(values) to High(values) do
    begin
      values[i]:=0;
      rules[i]:=0;
   end;
 
   //80-110
   Print('Назовите эти утверждение');
   for i:=Low(svars) to High(svars) do
   begin
      svars[i]:=input;
      Print('Утверждение '+svars[i]);
  end;
  Print('');
 
   //120-140
   Print('Назвоите возможные исходы');
   outcome1:=Input;
   Print('Первый исход: '+outcome1);
   outcome2:=Input;
   Print('Второй исход: '+outcome2);
 
   //цикл, аналог перехода по goto
   repeat
 
      //150-210
      print('');
      for i:=Low(values) to High(Values) do
      begin
         values[i]:=0;
         Print('утверждение '+svars[i]);
         Print('Если это утверждение истино, введите Y, иначе N');
         a:=input;
         if UpperCase(a)='Y' then Values[i]:=1;
      end;
 
      //220 - 250
      decision:=0;
      for i:=Low(values) to High(values) do
      begin
         decision:=decision+values[i]*rules[i];
      end;
 
       //260 - 280
       if decision>0 then print('Возможный исход '+outcome1)  else print('Возможный исход '+outcome2);
       print('Если это верно, введите Y иначе N');
       A:=input;
       if UpperCase(A)='Y' then
       begin
           print('Если хотите завершить работу, введите Y');
          A:=input;
          if UpperCase(A)='Y' then break;
          a:='';
          continue;
       end;//аналог goto 150
 
       //290 корректировка правил
       if decision>0 then
           for i:=Low(rules) to High(Rules) do Rules[i]:=rules[i]-Values[i]
       else
           for i:=Low(rules) to High(Rules) do Rules[i]:=rules[i]+Values[i];
 
       //Запрос на выход
       print('Если хотите завершить работу, введите Y');
       A:=Input;
 
   until UpperCase(A)='Y'; //аналог goto 150
 
end;