Pascal/Turbo Pascal - Como buscar en un archivo de texto una letra

como realizar un procedimiento que reciva como parametros el nombre fisico de un archivo de texto y una palabra. Cuyo objetivo es emitir por pantalla la cantidad de lineas en las que se encuentran alguna de las letras contenidas en la palabra que viene por parametro

procedure leer;
var
f,g : Text;
j,k : string;
i : integer;
key,key1 : Boolean;
begin
key:=true;
key1:=true;
i:=1;{esta variable va a contar las lineas}
clrscr;
Assign(f,'c:\prueba.TXT');{le asigno el contenido del archivo a f}
Assign(g,'c:\prueba.TXT');
Reset(f);{abro f}
Reset(g);
Readln(f,j);{le asigno a j el contenido de f}
Readln(g,k);
{ writeln(j); escribo j}
{readkey;}
while not SeekEof(f) do {mientras no se acabe el archivo haga:}
begin
clrscr;
i:=i+1;{cuente la linea}
if SeekEoln(f) then {si es el final de la linea}
Readln; { salto a la siguiente linea }
Read(f,j); {le asigno a j el contenido de f que es la linea}
end;
{while not SeekEof(g) do {mientras no se acabe el archivo haga:
begin
clrscr;
i:=i+1;{cuente la linea}
if SeekEoln(g) then {si es el final de la linea}
Readln; { salto a la siguiente linea }
if key then
begin
readln;
key:=false;
end;
Read(g,k); {le asigno a j el contenido de f que es la linea}
writeln(k);
readkey;
{ end; }
if (k='else') or (k='ELSE') then
begin
key1:=false;
end;

if (j[length(j)] <> ';') and (reserv(j)) and (coment(j)) and (k