файлы

[ччч1]

program ex;
uses crt;
type price=record;
tov,mag:string;
stoim:integer;
end;
procedure doall;
   var
     f: file of price;
     tovar,name: string;
     uch: array[1..4] of price;
     stoimost:integer;
     s:integer;
     s1:price;
begin
   clrscr;
   Writeln ('Задайте имя файла');
   Readln (name);
   Assign (f, name);
   Rewrite (f);
   Writeln ('Введите название товара ');
   Readln (s1.tov);
   While s1.tov <> ' ' do
         Begin
              Writeln ('Введите название магазина, в котором продается товар ');
              Readln (s1.mag);
              writeln ('Введите стоимость товара в рублях ');
              readln (s1.stoim);
              write (f,s1);
              Writeln ('Введите название товара ');
              Readln (name);
              s1.tov:=name;
                End;
         Writeln ('Файл создан');
            Close(f);
            reset(f);
         writeln (' Pokazat spisok ');
          while not Eof(f) do
          begin
            read (f,s1);
            with s1 do begin
              WriteLn('Магазин: ',mag);
              WriteLn('Стоимость: ',stoim);
              WriteLn('Товар: ',tov);
              WriteLn('----------------');
            end;
          end;
   ReadLn(mag);
   While not Eof(F) do begin
     Read(f,s1);
     if s1.stoim<=s then begin
       readln (s1.tov);
           end;

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

[Stilet]

reset(f);readln(s);
          while not Eof(f) do
          begin
            read (f,s1);
            if s1.stoim>s then continue;
            with s1 do begin
              WriteLn('Магазин: ',mag);
              WriteLn('Стоимость: ',stoim);
              WriteLn('Товар: ',tov);
              WriteLn('----------------');
            end;
          end;

Идея ясна? Среднее точно так же считается в таком же цикле.