записи и файлы [Паскаль]

[Narim]

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

 
uses crt;
type bagaz=record
           kol:byte;
           ves:real;
           end;
var bg,x:bagaz;
    n,i,j,ks:integer;
    f:file of bagaz;
    sr:real;
    c:char;
begin
clrscr;
assign(f,'bagaz');
rewrite(f);
writeln('vvydite dannye obagaje, okonchanie vvoda Esc:');
n:=0;
repeat;
n:=n+1;
writeln('Bagag ',n);
with bg do
 begin
  write(' kollichestvo mest: ');readln(kol);
  write(' ves: ');readln(ves);
  write(f,bg);
 end;
c:=readkey;
until c=#27;
close(f);
clrscr;
writeln('svedeniya o bagaje passajirov:');
writeln('kol. veshey  ves');
reset(f);
while not eof(f) do
 begin
  read(f,bg);
  writeln(bg.kol:5,bg.ves:11:1);
 end;
close(f);
ks:=0;
reset(f);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,bg);
  seek(f,j);
  read(f,x);
  if (bg.kol=x.kol)and(abs(bg.ves-x.ves)<=0.5) then ks:=1;
 end;
close(f);
if ks=1 then write('Есть 2 пассажира, имеющих равное число вещей, с разницей по весу не более 0.5 кг')
else write('Нет 2х пассажиров, имеющих равное число вещей, с разницей по весу не более 0.5 кг');
readln
end.

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