Множества. Паскаль

[Yelisey]

Здравствуйте!! Помоги пожалуйста с задачей!!

. type letters = set of 'a' .. 'z';
Описать процедуру print (A), печатающую в алфавитном порядке все элементы множества A, имеющего тип letters.
Программа: введите множество A, состоящее из 20 букв, и напечатайте его в алфавитном порядке.


не могу решить!

[Stilet]

А как пытался?
Ввод осуществляться может так:

 type letters = set of 'a' .. 'z';
 var
 l:letters;c:char;
begin
 read(c);
 include(l,c);

А вывод так

for c:='a' to 'z' do if c in l then write(c);

[Yelisey]

type letters=set of 'a'..'z';
Var s,p:string; c:char; i,j:integer; v:set of 'a'..'z';
Begin
 v:=[];
 writeln ('ââåäèòå ëàòèíñêèå áóêâû ');
 read (s);
 for i:=1 to length (s) do
  Begin
   case s[i] of
   'a'..'z':
   if not (s[i] in v) then
    Begin
     v:=v+[s[i]];
     p:=p+s[i];
    end;
  end;
end;
p:='';
for c:='a' to 'z' do
 Begin
  if c in v then p:=p+c;
 end;
writeln ('« Ëàòèíñêèå áóêâû*ïî àëôàâèòó''',p,'''');
End.

я вот прогу составил без процедуры! Помогите с процедурой! Так как прогу с процедурой надо составить.

[Serge_Bliznykov]

Описать процедуру print (A), печатающую в алфавитном порядке все элементы множества A

изучайте:

type letters=set of 'a'..'z';

procedure Print(A : letters);
var c : char;
begin
   Write('Множество A: [ ');
   for c:='a' to 'z' do
     if c in A then Write(c, ' ');
   writeLn(' ]');
end;

Var
  s : string;
  i,j:integer;
  v : letters;
begin
 v:=[];
 writeLn('Введите строку: ');
 readln(s);

 for i:=1 to length (s) do
   if s[i] in ['a'..'z'] then
     include(v, s[i]);

 Print(v);

 readln;

end.

[Yelisey]

Спасибо большое вам!)