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

[kill94]

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

[@nto$ka]

Код

var
    s:string;
    i :integer;
...

while not eof(f1) do
begin
    readln(f1,s);//Читай сразу [b]строку[/b]
    i:=pos(sim, s); //В строке ищем символ
    if i>0 then //И если он есть
    begin
          s[i]:=chr(256-ord(sim)); //Заменим символ на кракозябру
          if pos(sim, s)> 0 then  //И если он встретился во второй раз
            inc(q); //увеличим число строк
    end;
end;

ЗЫ Код не проверял. Писано на коленке