из Паскаля в С++

[Lees27]

Дан массив В1, В2, …, В10.
Заменить Вmax на сумму пяти первых элементов массива В.

Код в Паскале:
program am6;
var
b:array[1..10] of real;
s:real;
i,k:integer;
f:text;
begin
assign(f,'am.txt'); reset(f);
k:=1; s:=0;
for i:=1 to 10 do
begin
readln(f,b[i]);
writeln('b[',i,']=',b[i]:0:3);
if i<=5 then s:=s+i;
if b[i]>b[k] then k:=i;
end;
close(f);
b[k]:=s;
for i:=1 to 10 do
begin
writeln('b[',i,']=',b[i]:0:3);
end;
readln;
end.

Нужно поменять коды из Паскаля в С++

[netrino]

#include <iostream>
#include <fstream>

int main()
{
	double b[10];
	double s;
	int i,k;
	std::ifstream f("am.txt");
	
	k = 0; s = 0;
	for(i = 0; i < 10; i++) {
		f >> b[i];
		std::cout << "b[" << i << "]=" << b[i] << "\n";
		if( i < 5 )
			s += i+1;
		if( b[i] > b[k] )
			k = i;
	}
	
	f.close();
	b[k] = s;
	for(i = 0; i < 10; i++)
		std::cout << "b[" << i << "]=" << b[i] << "\n";

	std::cin.get();

    return 0;
}