Из Паскаля на С++

[Sbobukh]

Мне нужно написать программу:
Имеется файл f, компонентами которого являются символы. Переписать в файл g все знаки препинания файла f, а в h - все остальные символы файла f. Я нашел код на Паскале а так как я Паскаль никогда не учил не могу перевести на С++. Можете помочь???
Вод сам код Паскаля:

program fgh;
var
f,g,h:text;
a:string;
i:integer;
begin
assign(f,'c:\f.txt');
assign(g,'c:\g.txt');
assign(h,'c:\h.txt');
reset(f);
rewrite(g);
rewrite(h);
while not eof(f) do begin
readln(f,a);
for i:=1 to length(a) do
case a[i] of
'!',',','.','?':write(g,a[i]); {тут добавить всё что считаешь знаком препинания}
else write(h,a[i]);
end;
end;
close(f);
close(g);
close(h);
end

[troyan90]

#include <tchar.h>
#include <iostream>
#include <fstream>

int _tmain(int argc, _TCHAR* argv[])
{
	char s_f;

	std::ifstream in;
	std::ofstream g;
	std::ofstream h;

	in.open("c:\\f.txt");
	g.open("c:\\g.txt");
	h.open("c:\\h.txt");

	while (!in.eof())
	{
		in >> s_f;
		switch (s_f)
		{
			case '!':
			case ',':
			case '.':
			case '?':
				g << s_f;
				break;

			default:
				h << s_f;
				break;
		}
	}

	h.close();
	g.close();
	in.close();

	return 0;
}