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

[kill94]

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

[@nto$ka]

Во-первых, мой компилятор сразу же заругался, т.к. Вы не открываете файл f1 на чтение
Чтобы открыть файл на чтение нужно использовать процедуру Reset(f1); После чтения не забудьте обязательно ее закрыть.

Во-вторых, зачем считывать файл посимвольно ????? Читайте сразу строку!

Считав строку, ищите в ней нужный символ. Затем, если такой символ нашелся, то заменяем его на другой (проще всего заменить его на chr(256-ord(sim)) Тогда вы гарантированно получите другой символ ). Наконец, смотрим, есть ли в строке этот символ еще раз. И только тогда увеличиваем число строк q

Про файл вывода:

Лучше всего открыть f2 процедурой reset(f2); Он создает и открывает НОВЫЙ файл.
Кстати вместо

while not eof(f2) do
begin
read(f2,c); write©;
end;

лучше написать просто writeln(q);

Ну как-то так