Подскажите в чем проблема (множества) Опции

[wary]

Задача: Осуществить ввод элементов заданного множества с клавиатуры.
Определить является ли множество {'T','h','j','k'} его подмножеством.

Алгоритм: 1. Вводим 1-е множество с клавиатуры (я представляю себе что это может быть либо массив либо строка)

2. Сравниваем 1-е и 2-е относительно условия.

Вот что у меня получилось ->

Код

Program qwerty;
uses CRT;
const
N=4;
type
SetChar=set of char;
var
mn2:SetChar=['T','h','j','k'];
a:string;
i,YES,NO:integer;
BEGIN
Begin
ClrScr;
end;
readln(a);
FOR i:=0 to N do
        if (A[i]>=mn2) then Inc(YES)
                       else Inc(NO);
if YES=4 then writeln('-OK-');
if NO=4 then writeln('-NO-');
readln;
end.

При компилировании выдает @Error 26:type mismatch@ на месте

Код

if (A[i]>=mn2)

Просьба помочь разобраться, почему идет несовместимоть типов????, ведь например, если я

Код

if (A[i]>=mn2)

заменю на

Код

if (A[i] in mn2)

, то все работает. Таже проблема возникает если переменную "а" обьявляю как массив. Может я чего-то не допонимаю