Помогите мне перевести с Pascal на C++

Type Sprav=Record
Telefon:string[11];
FIO:string[15];
Adres:string[15];
End;
Var f:file of sprav;
st:sprav;
i,n:integer;
s:string;
Begin
write('Введите кол-во абонентов: ');readln(n);
Assign(f,'telephone.dat');Rewrite(f);
For i:=1 to n do
Begin
writeln('Введите информацию о ',i,'-ом абоненте');
write('Телефон: ');readln(st.Telefon);
write('Ф. И. О: ');readln(st.FIO);
write('Адрес: ');readln(st.Adres);
write(f,st);
End;
Reset(f);
writeln('-----------------------------------------------');
writeln(' Телефон | ',' Ф. И. О | ',' Адрес | ');
writeln('-----------------------------------------------');
While not Eof(f) do
Begin
read(f,st);
writeln(st.Telefon:11,'|':2,st.FIO:15,'|':2,st.Adres:15,'|':2);
End;
write('Введите номер телефона по которому искать абонента: ');readln(s);
Reset(f);
While not Eof(f) do
Begin
read(f,st);
if st.Telefon=s then writeln(st.FIO,'|':2,st.Adres:15,'|':2);
End;
Close(f);
readln;
End.