RE:Como buscar en un archivo de texto una letra
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