Багаж пассажира характеризуется количеством вещей и общим весом вещей - Pascal ABC

[Just-Five]

Помогите решить задачу.
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий информацию о багаже нескольких пассажиров. Дать сведения о багаже, число вещей в котором не меньше, чем в любом другом багаже, а вес вещей не больше, чем в любом другом багаже с этим же числом вещей.
Задача за типизированные файлы.

[Serge_Bliznykov]

основу можно взять тут - http://programmersforum.ru/showthread.php?t=55261
или тут - http://programmersforum.ru/showthread.php?t=205254

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

перевожу на русский,
1) нужно найти запись с максимальным числом вещей.
2) нужно перебрать записи, которые имеют такое же число вещей, как запись из п1
и найти среди таких записей багаж с минимальным весом.

всё.

p.s. в принципе это можно за один проход по файлу получить.

[Just-Five]

Нужно написать 2 программы первая создает файл(ее сделал)вторая с решением задачи.Со 2 проблемы.
Вот 1:

type
  komp = record 
    fam: string[10]; 
    kol: integer;  
    ves: real;
  end;

var
  Fp: file of komp; 
  A: komp; 
  i, n: integer;

begin
  Assignfile(Fp, 'm.dta');
  rewrite(fp); 
  Writeln('Введите кол-во записей'); 
  Readln(n); 
  for i := 1 to N do 
  begin
    Write('Введите фамилию'); 
    Readln(A.fam); 
    write('Введите количество вещей'); 
    Readln(A.kol); 
    write('Введите вес вещей'); 
    Readln(A.ves);
    Write(fp, A); 
  end; 
  
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

в конце желательно закрывать файл

  Close(fp);

а что со второй не получается?
я же расписал, как её решать.
В чём проблема?
Не умеете искать минимум/максимум?

[Just-Five]

При попытке считать что либо выдает ошибку "Ожидалась переменная типа komp".

[Just-Five]

Очень прошу написать мне хотябы примерный код программы.Уже 3 день с ней мучаюсь.Заранее спасибо

[Serge_Bliznykov]

Сообщение от Just-Five

При попытке считать что либо выдает ошибку "Ожидалась переменная типа komp".

Точно так! А Вы как считать пытаетесь?!

вот код по чтению файла:

type
  komp = record 
    fam: string[10]; 
    kol: integer;  
    ves: real;
  end;

var
  fp: file of komp; 
  A, maxA: komp; 

begin
  Assignfile(fp, 'm.dta');
  reset(fp); 

  maxA.kol := -1; {невозможное значение, 
              любое корректное количество вещей будет больше нуля и больше этого числа}
  while Not eof(fp) do begin
     Read(fp, A);
     if A.kol>maxA.kol then maxA := A
  end;
  Close(fp);

  if maxA.kol<0 
     then WriteLn('Файл пуст или заполнен некорректно!') 
     else WriteLn('Максимальное число вещей ',maxA.kol,' у пассажира ',maxA.fam);

  Readln;
end.

[Just-Five]

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

[Serge_Bliznykov]

Just-Five, пожалуйста.

только обратите внимание, что это только половина решения вашей задачи.
вам нужно среди записей с максимальным числом вещей найти запись с минимальным весом!

[Just-Five]

Я понял.Оставшееся попробую решить своими силами.