Напечатать в алфавитном порядке буквы, входящие в текст не менее двух раз - Pascal ABC

const
    ALPHABET = ['a'..'z', 'A'..'Z'];
var
    s: String;
    one, two: Set Of Char;
    i: Byte;
    c: Char;
begin
    Write('Введите строку текста: ');
    ReadLn(s);
    one := [];
    two := [];
    for i := 1 to Length(s) do
        if (s[i] in one)
        then
            Include(two, s[i])
        else
            if (s[i] in ALPHABET)
            then
                Include(one, s[i]);
    WriteLn;
    WriteLn;
    for c := 'a' to 'z' do
        if (c in two)
        then
            WriteLn(c, ' - ', Ord(c));
    for c := 'A' to 'Z' do
        if (c in two)
        then
            WriteLn(c, ' - ', Ord(c));
end.