Нужно перевести задачу с делфи на с++

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
ListBox2: TListBox;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const A:array [1..6] of real=(-4.1,-1,1.2,3,5,0.75);
type mas=array [1..6] of real;
var A1,B:mas;
i,k:integer;
Procedure mas2(Z:mas;n:integer;var k:integer;var B:mas);
var i:integer;
const x=-2.5; y=1.2;
begin
k:=0;
For i:=1 to n do
if (z[i]>=x) and (z[i]<=y) then begin
k:=k+1;
B[k]:=z[i];
end;
end;
begin for i:=1 to 6 do
A1[i]:=A[i];
mas2(A1,6,k,B);
for i:=1 to k do
Listbox2.Items.Add('b['+inttostr(i)+']='+formatfloat('##.###',b[i]));
for i:=1 to 6 do
Listbox1.items.add('a['+inttostr(i)+']='+floattostr(a[i]));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.