Программа которая формирует файл записей. Пассажиры. Список сформировал не омгу разобраться с условиямию

Type Passazhir=Record 
        Imja:String; 
        Reisa:String; 
        Gruz:Integer; 
        Ves:Integer; 
    End;

Program  fil;
Uses crt;
Type
    passazhir =  record
    name : string ;
    reisa : string ;
    gruz:integer;
    ves:integer;
    end;
 
Var   spisok : passazhir ;       {Запись spicok  типа passazhir}
sp : file  of passazhir;  {Файл записей типа passazhir }
k,sum,i, kpos :integer;
 
 
procedure sozdbd;        {cоздания файла}
var i,j:byte;
begin
assign(sp,'bd.txt');
rewrite ( sp);            {открытие файла для записи}
write('Введите кол-во пассажиров = '); readln(k);
with spisok do
For   i:=1  to  k  do
begin
writeln  (' Введите фамилию -  ',  i,'-го пассажира' );    readln (name);
write  (' Введите рейс  : ');    readln(reisa);
write  (' Введите кол-во вещей(сумок) пассажира ' ,name,  '= ');  readln (gruz);
write  (' Введите общий вес вещей(сумок) = ' );  readln (ves);  writeln;
write (sp , spisok);    { запись в файл информации о студенте}
end;
close (sp);      { закрытие файла для записи }
end;
 
 
procedure   print;  { процедура  чтения   и печати всего файла }
var    j : byte;
begin
reset (sp);               {открытие файла для чтения}
writeln ('Список пассажиров:');
while not eof (sp) do
with spisok do
begin
Read (sp, spisok);   {чтение данных из файла}
write (,'  ',name);      {вывод записи на экран}
write (,'  ',reisa);
write (,'  ',gruz,'Сумки ');
write (,'  ',ves,'кг');
writeln ;
end;
readln;
close (sp) ;
end;
 
 
 
begin
sozdbd;
print; {процедуры создания и чтения файла}
 
end.