перевод с pascal на с++

[Balthazar]

помогите перевсти программу на с++
uses crt;
var t:text;
st:string;
i,j,k:byte;
o:char;
begin
assign(t,'text.txt');
writeln('Введите арифметическое выражение: ');
rewrite(t);
repeat
readln(st); write(t,st);
write('продолжать ввод? (y/n)'); read(o);
for i:=2 to length(st) do begin
if st[i-1] in ['+','-','*','/'] then
if st[i] in ['+','-','*','/'] then
inc(j);
end;
for i:=2 to length(st) do begin
if (st[i-1] in ['0'..'9']) and (st[i] in [' '])
and (st[i+1] in ['0'..'9'])then inc(j);
if (st[i-1] in ['+','-','*','/']) and (st[i] in [' '])
and (st[i+1] in ['+','-','*','/'])then inc(j);
end;
if j=0 then
writeln(t,' - выражение записано верно!')
else
writeln(t,' - выражение записано не верно!');
until o='n';
close(t);
end.