Сформировать и вывести на экран множество из n символов латинского алфавита — Pascal(Паскаль)

Program Mn_8;
Const  N=20;
Var
s : set Of Char;
 a : Char;
 i : Integer;
Begin
s := [];
 For i:=1 To N Do
  Begin
   Writeln ('Введите элементы множества');
   Readln(a);
   If a In s then
     Writeln('Элемент ',a,' уже в множестве')
   Else
     s:=s+[a];
 End;
 Writeln('Результат');
 For a:='A' To 'z' Do
   If a In S Then
     Write(a:2);
readln;
End.