Множества (Бейсик)

[Таня.Ку]

Из множества целых чисел 1..100 выделить множество чисел,являющиеся,в свою очередь,квадратами целых чисел

[nuHrBuH]

Может не в этой теме пишу, но другой не нашел.

Как ввести множество состоящее из слов? ( Паскаль )

--------------------------------------------------------

Ввести четыре слова на русском языке.Вывести на экран все согласные буквы,которые не входят ни в одно слово.Создание множеств оформить в виде процедуры.


----

uses wincrt;
type
       gl = set of (b, v, g, d, j, z, k, l, m, n, p, r, s, t, f, h, c);
       mn = set of char;

procedure wrm(var mn1 : gl);
 var
     i, m : byte;
        c : char;
        s : string;

 begin

       readln(s);

    m:= ord( s[0] );

    for i:= 1 to m do
      if s[i] in mn
          then exclude(mn,s[i]);

  writeln('result : ');

   for c:= 'a' to 'Z' do
     if c in mn1
        then write(c,' ');

 end;


 var
    q : mn;

 begin
   wrm(q);
 end.

if s[i] in mn

Компилятор ругается. Подскажите что-нибудь