Помогите пожалуйста написать программу в паскаль)

Question

Известны данные о багаже 4-х пассажиров (вес и количество). На экран выести информацию о багаже)

Дмитрий Сысоев · Accepted Answer

вот общий принцип: 
TYPE 
 bagaj=record 
 ves:real; 
 kolvo:integer; 
 end; 
VAR 
 mbagaj:array[1..4]of bagaj; 
 i:integer; 
BEGIN 
//ввод данных о багаже 
 for i:=1 to 4 do 
 readln(mbagaj [ i ] .ves); 
 readln(mbagaj [ i ] .kolvo); 
 end; 
//по постановке задачи разве это не нужно? 
//вывод данных о багаже 
 for i:=1 to 4 do 
 writeln(mbagaj [ i ].ves); 
 writeln(mbagaj [ i ].kolvo); 
 end; 
END;