codice:
program quello_che_vuoi;
uses crt;
const n=10;
type generico = record
                appoggio:string[30];
                end;

     classe=array[1..n] of generico;

var i:integer;
    conf:text;      {file di testo}
    c:classe;
    carattere:char;
    stringa:string;
    trovato:boolean;

Begin
clrscr;
Write('quale carattere vuoi cercare nel file? ');
readln(carattere);
{$I-}
ASSIGN(conf,'c:\nome_file.txt');{gli puoi mettere qualsiasi estensione!}
RESET (conf);
i:=1;
while (not(eof(conf))) do 
                       begin
                       ReadLn(conf,c[i].appoggio);
                       i:=i+1;
                       end;
CLOSE (conf);
{$I+}
{per vedere se la riga "i" del file inizia con una lettera che vuoi tu
 basta mettere riga per riga in una stringa e verificare}
trovato:=false;
for i:=1 to 100 do
	      Begin
	      stringa:=c[i].appoggio;
              if stringa[1]=carattere then
                                      begin
                                      write('trovato "',carattere,'" alla riga ',i);
                                      trovato:=true;
                                      end;
              end;
if trovato=false then write('non trovato');
readln;
End.
Se ti serve qualche chiarimento sono qui.