Файлы, помогите исправить программу,пожалуйста Опции

[Ellsa]

Мое задание:
Сведения о магазинах города,которые состоят из названия,района,адреса,часов работы.Вывести сведения о книжных магазинах данного района,работающих после 18 часов,и число таких магазинов.


Прога идет,но не считает.В чем может быть ошибка,не подскажете?

program z522;

type sved=record
nazv,rayon,adr:string;
chas:integer;
end;
fsved=file of sved;
var kol:integer;
i:byte;
f:fsved;
numb:integer;
sv:sved;s:char;
name:string;
begin
repeat write('imya fajla: ');readln(name);
if name='' then halt;assign(f,name);s:='Y';
 {$I-}reset(f);{$I+} if IOResult<>0 then
  begin write('otkrit new fajl ', name, '?(Y/N)');
  readln(s); if upcase(s)='Y' then
  begin {$I-}rewrite(f);{$I+} if IOResult<>0 then
 begin writeln('disk nedostypen');name:= '' end; end
  else name:='';
  end until name<>'';
  numb:=0;
  if upcase(s)='Y' then
  begin seek(f,filesize(f));numb:=filesize(f) end;
  writeln('vsego zapisej',numb, 'vvadite ocherednyjy zapis:');numb:=numb+1;


with sv do repeat
writeln('nazv');
readln(nazv);
writeln('rayon');readln(rayon);
writeln('adr');readln(adr);
writeln('chas');readln(chas);
write(f,sv);
write('vvod sled zapisi&(Y/N)');
readln(s) until upcase(s)<>'Y';

begin
while not eof(f) do begin
 kol:=0;
read(f,sv);
for i:=1 to numb do
with sv do
if (nazv='kniznij') and (rayon='himki') and (chas>18) then
begin kol:=kol+1;
writeln ('knizhnie magazini v dannom rayone,rabotajuwie posle 18');
writeln ('rayon');writeln(rayon);
writeln ('chasi');writeln(chas);
writeln('adres');writeln(adr);

end;end;
if kol=0 then writeln('dannix net');
close (f);
end;
writeln(kol);

end.

[Bokul]

Чтобы ты успела прочитать то, что написала программа. А вообще самый лучший метод обучения - это метод проб и ошибок, экспериментируй!