Bună , rog ajutor cine îmi poate converta într-un fel spus codul din pascal n c++


type carte=record
denumirea: string[45];
numeautor: string[20];
nrpagini: 1..3000;
tema: string[20];
limba: string[20];
editura: string[20];
tara: string[20];
anul: 1900..2015
end;
var bibl: array [1..100] of carte;
I,n: integer;
f:text;
a:string[20];
begin
assign(f,'in.txt');
reset(f);
readln(f,n);
for I:=1 to n do
begin
readln (bibl[I].denumirea);
readln (bibl[I].numeautor);
readln (bibl[I].nrpagini);
readln (bibl[I].tema);
readln (bibl[I].limba);
readln (bibl[I].editura);
readln (bibl[I].tara);
readln (bibl[I].anul);
end;

writeln ;
writeln('Dati numele autorului:');
readln(a);
writeln('Denumirele caritlor scrise de aces autor');
for I:=1 to n do
if bibl[I].numeautor=a then
writeln('Danumirea cartii : ', bibl[I].denumirea);
writeln ;
writeln('Dati denumirea editurii:');
readln(a);
writeln('Denumirele caritlor editate de aceasta editura:');
for I:=1 to n do
if bibl[I].editura=a then
writeln(' Danumirea cartii : ', bibl[I].denumirea);
writeln ;

writeln('Denumirele caritlor editate in limba romina , peste hotare');
for I:=1 to n do
if bibl[I].limba='Romina' then
if bibl[I].tara<>'Moldova' then
writeln(' Danumirea cartii : ', bibl[I].denumirea);
writeln ;
writeln('Dati denumirea temii:');
readln(a);
writeln('Denumirele caritlor la tema data , dupa anul 2000');
for I:=1 to n do
if bibl[I].tema=a then
if bibl[I].anul>2000 then
writeln(' Danumirea cartii :', bibl[I].denumirea);


end.