Question

Прошу переделать код программы с языка Паскаль на С++.
Вот код Паскаль:
var
f:array[1..500] of record 
fam:string; 
bal:boolean; 
end;
buf:boolean; 
str:string; 
b1,b2,i,n,j:integer;  
c:char; 
begin
readln(n); 
for i:=1 to n do  
begin
repeat 
begin
read(c);
f[i].fam:=f[i].fam+c; 
end;
until c=' ';   
repeat  
begin
read(c);
f[i].fam:=f[i].fam+c; 
end;
until c=' ';
f[i].bal:=false; 
read(b1,b2);  
if (b1<30)or(b2<30) then f[i].bal:=true; 
end; 
For i := 1 To n-1 do begin  
For j := i + 1 To n do
If f[i].fam > f[j].fam Then 
begin
str:= f[i].fam;
f[i].fam:= f[j].fam;
f[j].fam:= str;
buf:= f[i].bal;
f[i].bal:= f[j].bal;
f[j].bal:= buf;
end;
end; 
for i:=1 to n do
if f[i].bal=true then writeln (f[i].fam); 
end.

Answer 1

..................................................

95be9131adaabf7a9e159736d35e764a.cpp