Помогите переделать с паскаля на с++
const n=10;
type avto=record
marka,color:string;
year:integer:
price:read;
end;
avtoprice= file of avto;
var a1:array[1..n] of avto;
i:integer;
f1:avtoprice;
begin
clrscr
assing(f1,'d:\avto');
reset(f1);
for i:1 to n do with a1[i] do
begin
writeln('Введите марку:');
readln (marka);
writeln('Год выпуска:');
readln(year);
writeln('Цвет:');
readln(color);
writeln('Цена:');
readln(price);
end;
writeln;
writeln('Фирма предлогает такие машины:')
for i:=1 to n do with a1[i] do
writeln(marka:15,year:10,color:20,color:red,' $',price);
writeln;
write('Выведим инф;');
writeln('Машину выпущенные в 1999 году;');
for i:=1 to n do with a1[i] do
if year = 1999 and color= red then writeln (marka:15,prece);
readln;
end.