Delphi 7 Ошибка при работе с файлами

Мне задали задание: в текстовом файле (текст в нем любой) нужно найти количество строк начинаемое на "А" или "а", а также количество строк, в которых есть ровно 5 символов "и". Вот код в котором сделано первое задание:

procedure TForm1.Button1Click(Sender: TObject);
     var
     f:TextFile;
     a,p:Integer;
     x1,x2,s:String;
    begin
     assignfile(f,'d:\text.txt');
     reset(f);
     a:=0;
     s:='а';
     while not eof(f) do begin
      readln(f,x1);
       if pos(s,f) <1 then
       a:=a+1;
    end;
      CloseFile(f);
      showmessage(IntToStr(a));
    end;
    end.

на строке if pos(s,f) <1 then выдает ошибку.