Запуталась в типах и переменных. Помогите пожалуйста!

[Kati]

Задача:Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого пассажира представляет собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле вещественное (Вес в килограммах). Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом не менее 30 кг.

uses crt;
const maxp=100;
type bagaj=record
     np:integer;
     ves: real;
     kol_vo:integer;
     end;
  mas=array[1..maxp] of bagaj;
  var n,i:integer;
  b:mas;
  procedure vvod(var b:bagaj);
  begin writeln('vvedite nomer passajira');
        read(b.np);
        writeln('vvedite kol_vo bagaja');
        read(b.kol_vo);
        writeln('vvedite ves bagaja');
        read(b.ves)
        end;
   begin
   writeln('kol_vo passajirov');
   read(n);
   for i:=1 to n do vvod(b);
   for i:=1 to n do begin
    if (mas[i].kol_vo=1) and (mas[i].ves>=30) then wrireln(mas[i].n) else writeln ('net');
    end.

[Sazary]

Подправил:

uses crt;
const maxp=100;

type bagaj=record
np:integer;
ves: real;
kol_vo:integer;
end;

mas=array[1..maxp] of bagaj;

var n,i:integer;
b:mas;
flag : boolean;

procedure vvod(var b:bagaj);
begin
writeln('vvedite nomer passajira');
readln(b.np);
writeln('vvedite kol_vo bagaja');
readln(b.kol_vo);
writeln('vvedite ves bagaja');
readln(b.ves)
end;

begin
writeln('kol_vo passajirov');
read(n);
for i:=1 to n do vvod(b[i]);

flag := false;
for i:=1 to n do
if (b[i].kol_vo=1) and (b[i].ves>=30) then
 begin
 writeln(b[i].np);
 flag := true;
 end;

if not flag then writeln ('net');

readln;
end.

ps Код заключайте в теги CODE (значок "#" на панели в окне редактирования).

[Kati]

Спасибо за помощь!