Переход от Delphi к с++

[ПрИуЭт]

Пожалуйста помогите перейти к с++

var
  Form1: TForm1;
  i, j, n, y, y1, c, b, k: integer;
   a: array [1..100,1..100] of integer;
   z: array [1..100,1..100] of string;
   s, str, s1, sh, v : string;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=3;
k:=1;
b:=n*n;
i:=1;
j:=(n div 2)+1;
for k:=1 to b do begin
a[i,j]:=k;
StringGrid1.Cells[i-1,j-1]:=IntToStr(a[i,j]);
if (k mod n=0) then i:=i+1
else begin i:=i-1; j:=j+1; end;
if(i=0) then i:=n;
if (j>n) then j:=1;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
s:=Edit1.Text;
y:=length(s);
while y>0 do begin
if y>b then begin
s1:=copy(s,1,b);
delete(s,1,b); end
else begin
  s1:=s;
  delete(s,1,length(s));
   end;
 y1:=length(s1);
 while y1>0 do begin
v:=copy (s1,y1,1);
delete(s1,y1,1);
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]=y1 then z[i,j]:= v;
end; end;
y1:=length(s1);
 end;
 for j:=1 to n do begin
 for i:=1 to n do begin
 sh:=sh+z[i,j];
 end;  end;
 y:=Length(s);
 if y>0 then begin
 for i:=1 to n do begin
 for j:=1 to n do begin
 z[i,j]:='';
 end; end;
 end else
  for i:=1 to n do begin
 for j:=1 to n do begin
 StringGrid2.Cells[i-1,j-1]:=z[i,j];
 end; end;
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
for j:=1 to n do begin
for i:=1 to n do begin
Edit2.Text:=sh;
end; end;
end;

end.

[ПрИуЭт]

подскажите как в с++ пишется функция copy

[_Bers]

http://www.cplusplus.com/reference/algorithm/copy/

[ACE Valery]

А задание Вам неизвестно? Или лень выложить? Тут, конечно, все могут читать код делфи с такой же скоростью, как и русский. Но все же, в знак уважения к форумчанам (и если хотите, чтобы вам помогли), нужно выкладывать задание.