Милые и уважаемые программисты, очень легка задача на файлы!! Исправьте ошибки

[simba910]

Задача:
Создать типизированный файл записей, содержащих сведения о багаже пасса-
жира. Структура записи имеет следующий вид:

type B = record { Багаж }
  N: String[20]; { Ф.И.О. пассажира }
  M: Integer; { Количество вещей }
  W: Real { Общий вес вещей [кг] }
end

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

program bagaj;
type B = record{ Багаж }
N: String[20]; { Ф.И.О. пассажира }
M: Integer;{ Количество вещей }
W: Real;{ Общий вес вещей [кг] }
end;
var
map:array[1..500] of B;
f : File of B;
a,maxM,count:integer;

begin
assign(f,'bagaj.txt');
reset(f);
count:=0;
repeat
count:=count+1;
readln(f,map[count].N,map[count].M,map[count].W);
writeln(map[count].N,' ',map[count].M,' ',map[count].W);
until eof(f);
close(f);
maxM:=1;
for a:=2 to count do
if map[maxM].M<map[a].M then maxM:=a;
for a:=1 to count do
if map[a].M=map[maxM] then if map[a].N<map[maxM].N then maxM:=a;
writeln;
writeln(map[maxM].N,' ',map[maxM].M,' ',map[maxM].W);
end.

ГДЕ ОШИБЛАСЬ!?!




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Son Of Pain]

if map[a].M=map[maxM] then

Вот здесь, например.