Помогите имправить задачку в паскале

[Андрю)(@]

Тема: "Записи и типизированные файлы"
Смысл задачи такой, что в первой процедуре, спаршивается сколько пассажиров всего, далее идёт ввод пассажиров с параметрами (фамилия, инициалы, кол-во вещей, общий вес вещей), все введённые данные записываются в файл. Также в первой процедуре ведётся подсчёт "Среднего веса одной вещи всех пассажиров". Одним словом первая процедура работает НА УРА и правильно считает если вводить такие вот записи:
Три пассажира
petrov s.s. 12 60
kozlov k.k. 15 43
sidorov v.v. 9 7.
Основная формула, которая используется во второй процедуре
ABS(R-An.ves/An.kolvo)
R-это средний вес одной вещи всех пассажиров;
An.ves-вес вещей одного пассажира;
An.kolvo - количество вещей одного пассажира.
Весь гемор начинается во второй процедуре во первых тоже самое среднее значение считается не правильно. Во вторых не удаётся посчитать "Средний вес вещи одного пассажира".
Необходимо при запуске пргоги нажать '1' заполнить файл данными, при нажатии цифры '2' должно произвестись решение этой задачи, при использовании этих пассажиров на экран должно вывестись
kozlov k.k. 15 43
sidorov v.v. 9 7.
При повторных запусках программы необходимо нажатием '2' вывести решение, Это для меня самый боольшой гемор...
Может кто-нибудь может помочь в дополнении этих недочётов..
Вот сама програмка:

Program 888;
USES Crt;
Type
 H=Record
  familia, initials:string[10];
  kolvo:integer;
  ves:integer;
  end;
  Spis=file of H;
  Var
  Spi:Spis;
  An:H;
  I,N,M:integer;
  F:real;
  T:real;
  G:real;
  R:real;
  W:real;
  c:char;
Procedure menu;
Begin
Writeln('┌────────────────────────┐');
Writeln('│1.Заполнить файл данными                         │');
Writeln('├────────────────────────┤');
Writeln('│2.Нахождение пассажира                           │');
Writeln('├────────────────────────┤');
Writeln('│3.Выход                                                    │');
Writeln('└────────────────────────┘');
End;
Procedure proc1;
Begin
 F:=0;
 G:=0;
 Assign(Spi,'D:\MYFILE.DAT');
 Rewrite(Spi);
 Writeln('Введите количество пассажиров');
 Readln(N);
 For I:=1 to N do
  Begin
  With An do
  Begin
  Writeln('Введите фамилию пассажира');
  Readln(familia);
  Writeln('Введите инициалы пассажира');
  Readln(initials);
  Writeln('Введите количество вещей пассажира');
  Readln(kolvo);
  Writeln('Введите вес вещей пассажира');
  Readln(ves);
  Writeln(' ');
  begin
  F:=F+kolvo;
  G:=G+ves;
  end;
  end;
  write(Spi,An);
  end;
  begin
   R:=G/F;
  Writeln('Средний вес одной вещи всех пассажиров',R);
  end;
  Close(Spi);
End;
Procedure proc2;
Begin
Assign(Spi,'D:\MYFILE.DAT');
Reset(Spi);
begin
F:=0;
G:=0;
For I:=1 to N do
 begin
 F:=F+An.kolvo;
 G:=G+An.ves;
 end;
 R:=G/F;
Writeln('Средний вес одной вещи всех пассажиров',R);
For I:=1 to N do
 begin
 Reset(Spi);
 begin
 With An do
 begin
 If ABS(R-(An.ves/An.kolvo))<0.3 then
  Writeln(An.familia,' ',An.initials,' ',An.kolvo,' ',An.ves)
 end;
end;
end;
end;
end;
begin
ClrScr;
Repeat
menu;
c:=readkey;
case c of
'1':proc1;
'2':proc2;
else writeln ('Ошибка');
end;
  until (c=#27) or (c='3');
end.

[puporev]

Напиши точное условие задачи без своих комментариев, где что делать. Ты столько наворотил лишнего, что разобраться уже не представляется возможным.
Вот пока переделал начало и первую процедуру.

Program aaaa; //интересно как у тебя запускается программа с именем 888?
USES Crt;
Type H=Record
       fio:string[10];
       kol:byte;
       ves:integer;
       sr:real;  //средний вес вещей пассажира делаем полем
       end;
     mas=array[1..100] of H; //массив записей, иначе как будешь хранить записи
     Spis=file of H; //тип файла для передачи в процедуры
var f:Spis;
    sp:mas;  //здесь еще буду разбираться и лишнее выкидывать
    I,N,M:integer;
    T,G,R,W:real;
    c:char;
Procedure menu;
Begin
Writeln('-------------------------м');
Writeln('|1.Заполнить файл данными                         |');
Writeln('+------------------------+');
Writeln('|2.Нахождение пассажира                           |');
Writeln('+------------------------+');
Writeln('|3.Выход                                                    |');
Writeln('L-------------------------');
End;
Procedure proc1(n:integer;var An:mas;var Spi:Spis);//входные параметры размер массива, сам массив, выходной параметр-файл
Begin
 Assign(Spi,'MYFILE.DAT');
 Rewrite(Spi);
 Writeln('Введите количество пассажиров:');
 Readln(N);
 For I:=1 to N do
  Begin
    With An[i] do //обязательно запись с номером An[i]
      Begin
        Writeln('Пассажир ',i);
        write('Введите фамилию и инициалы пассажира: ');Readln(fio);
        Write('Количество вещей: ');Readln(kol);
        Write('Вес вещей: ');Readln(ves);
        sr:=ves/kol; //сразу считаем средний вес вещей одного пассажира
      end;
    write(Spi,An[i]);//заносим запись в файл
  end;
Close(Spi);
End;

Дальше надо разбираться. Короче будет условие, помогу.

[Андрю)(@]

Условие такое:
Создать файл, содержащий информацию о багаже пассажиров (фамилию, инициалы, количество вещей, общий вес вещей): найти пассажиров средний вес одной вещи которых отличается не более чем на 0.3 кг от общего среднего веса одной вещи.
А по желанию препода:
1)Нельзя пользоваться массивом (но с того момента как я его выкинул из проги пошли все беды...);
2) Необходимо, чтобы в первой процедуре запрашивал число пассажиров с их данными;
3) При следующем запуске программы, процедуру '1' не вызывать, а сразу вызывать процедуру '2' и должно всё считываться из существующего файла и работать.
4) Ну и конечно обязательно чтобы было в виде меню.

[puporev]

Да, это посложнее чем я думал, тут действительно придется шариться по типизированному файлу напрямую, без масива.

[puporev]

Вот поправил твою программу, повыкидывал лишнее, сейчас работает.

Program aaaa;
USES Crt;
Type H=Record
       fio:string[10]; //объединил фамилию и и инициалы, это не важно
       kol:byte;
       ves:integer;
       sr:real;  //средний вес у каждого делаем полем
       end;
     Spis=file of H;
var An:H;
    Spi:Spis;
    I,N:integer;
    G:real;  //средний вес вещи по всему списку
    c:char;
Procedure menu;
Begin
Writeln('1.Заполнить файл данными');
Writeln('2.Нахождение пассажиров');
Writeln('3.Выход');
End;
Procedure proc1;
Begin
 Assign(Spi,'MYFILE.DAT');
 Rewrite(Spi);
 Writeln('Введите количество пассажиров:');
 Readln(N);
 For I:=0 to N-1 do //счет в типизированных файлах от ноля, 
  Begin
    With An do
      Begin
        Writeln('Пассажир ',i);
        write('Введите фамилию и инициалы пассажира: ');Readln(fio);
        Write('Количество вещей: ');Readln(kol);
        Write('Вес вещей: ');Readln(ves);
        sr:=ves/kol;
      end;
    write(Spi,An);
  end;
Close(Spi);
End;
Procedure proc2;
Begin
Assign(Spi,'MYFILE.DAT');
Reset(Spi);
G:=0;
For I:=0 to FileSize(Spi)-1 do  // FileSize(Spi)-количество записей
  begin
   read(spi,An);  //читаем запись
   G:=G+An.sr/n; //к общему среднему весу прибавляем средний вес каждого, деленный на n
  end;
Seek(Spi,0); //возвращаемся в начало файла
Writeln('Список пассажиров, средний вес одной вещи отл. от ср. на 0.3 кг:');
For I:=0 to FileSize(Spi)-1 do
  begin
   read(spi,An); //читаем запись
   If ABS(G-An.sr)<=0.3 then //если не превышает
   Writeln(An.fio,'  ',An.kol,' ',An.ves);  //выводим на экран
  end;
end;
begin
ClrScr;
Repeat
menu;
c:=readkey;
case c of
'1':proc1;
'2':proc2;
else writeln ('Выход');
end;
  until (c=#27) or (c='3');
  readln
end.

[Андрю)(@]

Спасибо огромное теперь она правильно работает.
Такой ещё вопросик, как можно связать '1' процедуру и '2', что было, например, запустил прогу всё выполнил, он показал мне результат. А уже приследующем запуске этой проги, не вызывая процедуры '1', сразу вызвать процедуру '2' и получить тот же самый результат.

[puporev]

G:=0;
For I:=0 to FileSize(Spi)-1 do
  begin
   read(spi,An);
   G:=G+An.sr/FileSize(Spi); {перепиши эту строку(вместо n FileSize(Spi)) и программа будет работать с пункта 2}
  end;

[Андрю)(@]

puporev, огромное спасибо!!! теперь всё отлично!!!

[Андрю)(@]

А With An do как обозначается в блоксхеме??
Также, как и FOR?

[slips]

Сообщение от Андрю)(@

А With An do как обозначается в блоксхеме??
Также, как и FOR?

Никак это всего ли упрощенная форма