Преобразовать код Lazarus (Object Pascal) в Visual Studio C++

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
  Const
          N = 1000; //Количество элементов массива
          Max_Range = 100+1; //Диапазон значений случайных чисел
  Var
          M: Array [1..N] Of Integer; //Определение статического массива чисел
          i: Integer; //Индекс массива
    Sum: Real; //Сумма чисел
begin
  //Заполняем массив случайными числами
Randomize;
For i := 1 To N Do
  M[i] := Random(Max_Range);
  //Задаем начальные значения
Sum := M[1];
  //Цикл вычисления суммы всех случайных чисел
For i := 1 To N Do
  Sum := Sum + M[i];
//Вычисляем среднее значение и выводим результат
Label1.Visible := True;
Label1.Caption := 'Среднее = ' + FloatToStr(Sum/N);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
Const
        N = 1000; //Количество элементов массива
        Max_Range = 100+1; //Диапазон значений случайных чисел
Var
        M1: Array Of Integer; //Определение динамического массива чисел
        i: Integer; //Индекс массива
  Sum: Real; //Сумма чисел
begin
//Заполняем массив случайными числами
Randomize;
SetLength(M1,N);
For i := 1 To N Do
M1[i] := Random(Max_Range);
//Задаем начальные значения
Sum := M1[1];
//Цикл вычисления суммы всех случайных чисел
For i := 1 To N Do
Sum := Sum + M1[i];
//Вычисляем среднее значение и выводим результат
Label2.Visible := True;
Label2.Caption := 'Среднее = ' + FloatToStr(Sum/N);
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
const FileName = 'MyFile.txt'; //Имя создаваемого файла
var
 TF: File; //Объявление нетипизированного файла
 str: String;//Объявление строковой переменной
Begin
AssignFile(TF,FileName); //Связывание файловой переменной TF с файлом на
                    //диске
Rewrite(TF); //Открытие файла для записи
str := 'Hello World!';//Присвоение переменной значения
BlockWrite(TF,str,1); //Запись в файл
CloseFile(TF); //Закрытие файла
Reset(TF); //Открытие файла для чтения
While (not EOF(TF)) Do//Создание цикла для чтения данных из файла
Begin
BlockRead(TF,str,1); //Чтение данных из файла в переменную str
Label3.Visible := True;
Label3.caption := str; //Вывод прочитанных данных в метку
End;
End;
 
procedure TForm1.Button4Click(Sender: TObject);
const
 FileName = 'MyTextFile.txt';//Имя создаваемого файла
var
 TF: TextFile;//Объявление текстового файла
 str: String;//Объявление строковой переменной
Begin
AssignFile(TF,FileName);//Связывание файловой переменной TF с файлом на
       //диске
Rewrite(TF);//Открытие файла для записи
Write(TF,'Hello World! Это текстовый файл!');//Запись в файл
CloseFile(TF);//Закрытие файла
Reset(TF);//Открытие файла для чтения
While (not EOF(TF)) Do//Создание цикла для чтения данных из файла
Begin
ReadLn(TF,str);//Чтение данных из файла в переменную str
Label4.Visible := True;
Label4.caption := str;//Вывод прочитанных данных в метку
End;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  close;
end;
 
 
 
end.

interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
...
...
end;