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

[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.

[Lapp]

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

Примерно так:

for c:='a' to 'z' do if c in A then Write©;

[Ozzя]

{ Дан файл из латинских букв }
{ qwertyuiopasdfghjklzxcvbnm }

program laba11;
uses    crt;
const
  filename='text.txt';
type
  mnozh = set of char;
var
  a : mnozh;
  q : char;
  f : file of char; {Дан файл из латинских букв}
Procedure Print (b: mnozh);
var
  c : char;
begin
  for c:='a' to 'z' do
    if c in b then
      Write©;
end;

begin
  clrscr;
  a:=[];
  assign(f,filename);
  ReSet(f);
  while not eof(f) do
    begin
       read(f,q); 
       {сюда можно вставить проверку на вхождение во множество (защиту от дурака)}
       include(a,q);
    end;
  print(a);
  readln;
  Close(f);
end.

[Alucard]

Lapp, Ozzя
Спасибо). Не ожидал чесно весь код увидеть