Помогите написать программу в Pascal. ПОЖАЛУЙСТА!!!
Переписать сведения о багаже из переменной Bagaj в переменную Bag. В переменной Bag сведения о багаже каждого пассажира представляются массивом из двух целых чисел - числа вещей и общего веса вещей, выраженного в граммах. Составить также программу обратного преобразования: переписи сведений о багаже из переменной Bag в переменную Bagaj.

// PascalABC.NET 3.0, сборка 1073var  Bag,Bagaj:array[1..2] of longint;begin  Bagaj[1]:=5; Bagaj[2]:=43600;  { перенос Bagaj -> Bag }  Bag[1]:=Bagaj[1]; Bag[2]:=Bagaj[2];  Writeln('Предметов- ',Bag[1],', общий вес ',Bag[2]);    Bag[1]:=4; Bag[2]:=24540;  { перенос Bag -> Bagaj }  Bagaj[1]:=Bag[1]; Bagaj[2]:=Bag[2];  Writeln('Предметов- ',Bagaj[1],', общий вес ',Bagaj[2]);end.Тестовое решение:Предметов- 5, общий вес 43600Предметов- 4, общий вес 24540