Хочу понять ООП. есть задача, что нужно делать и как правильно нужно делать Опции

[noskovgleb]

Сама задача выглядит вот так:
Дан файл "Багаж пассажиров", который содержит данные о количестве вещей и их общем весе для каждого пассажира. Выделить пассажиров, данные которых превышают средние показатели файла.
Объясните пожалуста... код мне впринципе ненужен!

[noskovgleb]

ии... у меня получилось что то такое...

uses crt;
   type
      OO = object
              kolv : byte;
              oves : integer;

         //     constructor init;
              procedure sves;
              procedure openbogag;
              procedure createmassiv;
           private
              m : array[1..5] of integer;
           end;
{------------------------------------}
   procedure OO.sves;
      var
         i    :byte;
         summa:integer;
         j    :byte;
   Begin
      j:=0;
      writeln('Сдесь будем определять кто взял большой вес одежды) ');
      writeln;
      for i:=1 to 5 do
          begin
             summa:=summa+m[i];
             inc(j);
          end;
      for i:=1 to 5 do
         if m[i] > (summa/j)
            then writeln(i,'-й пассажир превысил средний вес вещей.');

   End;
{------------------------------------}
   procedure oo.openbogag;
      var f : text;
          i : byte;
          b : byte;
   Begin
      i:=0;
      assign(f,'bagag.txt');
      reset(f);
         while not eof (f) do
            begin
               i:=i+1;
               read(f,b);
               write(b:2,' ');
               if i=2 then
                 begin
                    writeln;
                    i:=0;
                 end;
            end;
      close(f);
   End;
{------------------------------------}
   procedure oo.createmassiv;
   var j : integer;
       i : integer;
       f : text;
       b : byte;
   Begin
       writeln;
       i:=0;
       j:=1;
      assign(f,'bagag.txt');
      reset(f);
         while not eof (f) do
            begin
               i:=i+1;
               read(f,b);
           //    write(b:2,' ');
               if i=2 then
                 begin
                    m[j]:=b;
                    writeln(m[j]);
                    inc(j);
                    i:=0;
                 end;
            end;
      close(f);
   End;
{------------------------------------}
   var
      BP : OO;
BEGIN
   clrscr;
   BP.openbogag;
   BP.createmassiv;
   BP.sves;
   readln;

END.