Ошибка в поиске.

 procedure search(a:string);
  var zapis:spisok;
      w,k:string;
      i,m,s:longint;
      l:boolean;
  begin
       assign(f,a); reset(f);
       clrscr;
       repeat
       textcolor(white);
       writeln('Dlya prodiljeniya najmite lyubuyu lavishu, dlya vihoda* <Esc>!');
       w:=readkey;
       if w=#27 then exit;
      begin
       i:=0;
           {$I-}
       repeat
       write('‚Vvedite nomer telefona bez probelov: '); readln(s);
         l:=IoResult=0;
          if not l then  writeln('Error!');
       until l;
           {$I+}       while not eof(f) do
        begin
        read(f,zapis);
     if s=(zapis.tel) then
      begin
          textcolor(white);
            writeln(zapis.i,':',zapis.fam,' ',zapis.io);
            writeln('  Adres: ',zapis.adr);
            writeln('  Telrfon: ',zapis.tel);
            writeln('  kol-vo min: ',zapis.min);
            writeln('  Oplata*: ',zapis.min*h:7:2,' агЎ');
            writeln;
           end;
          end;
           if s<>(zapis.tel) then writeln('Nomer ne nayden!');
           writeln;
          end;
            UNTIL  w='0';
           writeln;
           close(f);
           readln;
         end;