Вывести фамилии пассажиров, общий вес багажа которых превышает введенное с клавиатуры число

Program dekanat;
Uses crt;                      
Type Stud = Record
       FIO: String[30];          
       kolichestvo: String[6];       
       Mark: Record
       ves: 0..999999;
                
          end;
     end;
Var  Fstud : file of stud;                    
        S : Stud;                              
        N : integer;                                  
        i : integer;                                    
        v : real;                                 
        familia, kolichestvo, ves, temp : string;
        sum : real;                
BEGIN
  textbackground (7);         
  textcolor(0);
  clrscr;
 
 
 Assign(Fstud,'bagazh.txt');                  
 Rewrite(Fstud);                               
 Write('Kolichestvo passazhirov: ');
 Readln(N);                                 
 for i:=1 to N do                          
    begin
      write(i, '. Familia: ');
      readln(S.FIO);
      Write('   kolichestvo veschey: ');
      readln(S.kolichestvo);
      Writeln('   ves:');
      
      readln(s.mark.ves);
     
      Writeln('----------------------------');
      Write(Fstud,s);                             
   end;
   close(fstud);
Reset(Fstud);                            
Write('est li passazhiry izmenivshie bagazh? (da/ net) : ');
 readln(temp);                         
if temp='da' then    
  Repeat                  
Write('Familia:');
      readln(familia);
      write('kolichestvo :');
      readln(kolichestvo);
      Write('ves: ');
      readln(ves);
For i:=1 to N do  
         begin
             seek(Fstud,i-1);
Read(Fstud,S);
             if s.fio=familia then 
begin
          if kolichestvo='s.kolichestvo' then s.kolichestvo:=kolichestvo;
end;
seek(fstud,i-1);       
write(Fstud,S);     
end;
   writeln('--------------------------------');
   Write('Sleduyshiy passazhir? (da/ net) : ');    
readln(temp); 
Until temp='net';                 
 
writeln('Vvedite ves bagazha: ');   
     
for i:=1 to n do 
       begin
    seek (Fstud,i-1);
    read (Fstud,s);
                 
     readln(sum);                         
  
 
if sum>s.mark.ves 
then writeln(s.fio);
end;
end.