Переведите программу из Паскаля в С++ - C++ - Ответ 5552834

Uses crt; 
Const n=8; 
Type price=record 
Naz:string; 
Kod:word; 
Mag:string; 
Stm:real; 
End; 
Var 
A:array[1..n] of price; 
X:price; 
I,j:byte; 
Mg:string; 
Begin 
Clrscr; 
Writeln(‘введите данные о’,n,’товарах: ’); 
For I:=1 to n do 
Begin 
Writeln(‘товар’,i); 
With a do 
Begin 
Write(‘название: ’); readln(naz); 
Write(‘код: ’); readln(kod); 
Write(‘магазин: ’); readln(mag); 
Write(‘стоимость: ’); readln(stm); 
End; 
End; 
Clrscr; 
{сортировка по коду} 
For i:=1 to n-1 do 
For j:=i+1 to n do 
If a.kod>a[j].kod then 
Begin 
X:=a; 
A:=a[j]; 
A[j]:=x; 
End; 
Writeln(‘список товаров: ’:30); 
Writeln(‘--------------‘); 
Writeln(‘|название|код|магазин|стоимость|’); 
Writeln(‘--------‘); 
For i:-=1 to n do 
With a do 
Begin 
GotoXY(1,whereY);write(‘|’,naz); 
GotoXY(15,whereY);write(‘|’,kod); 
GotoXY(23,whereY);write(‘|’,mag); 
GotoXY(35,whereY);write(‘|’,stm:10:2); 
GotoXY(47,whereY);write(‘|’); 
End; 
Writeln(‘--------------‘); 
Write(какой товар в магазине: ’); 
Readln(mg); 
J:=0; 
For i:=1 to n do 
If a.mag=mg then 
Begin 
J:=1; 
Write(a.naz); 
End; 
If j=0 then write(‘такого нет’); 
Readln 
End