Прошу переделать код программы с языка Паскаль на С++.
Вот код Паскаль:
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; </span>
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.