наличие буквы из файла в множестве Опции

[Alucard]

Дан файл из латинских букв, описать процедуру print(A), печатающую в алфавитном порядке все элементы множества А (SET OF 'a'..'z')

сижу пол-сонный, нифига не соображаю уже. КОд вроде начал. Помогите советом или строчкой, проснусь доделывать буду

На данный момент не знаю как заставить проверять фаил в алфавитном порядке

Код

program laba11;
uses    crt;
const   filename='c:\text.txt';
var     a:set of char;
        i,n:integer;
        poz:byte;
        f:text;
        temp,ln:string[80];

begin
     clrscr;
     a:=['a'..'z'];
     assign(f,filename);
     while not eof do
       begin
         append(f);
         for i:=1 to length(ln) do readln(f,ln);
         if  ln[i] in a then
           begin
             poz:=pos(ln[i],ln);

     writeln;
     readln;
end.