Множества, не могу понять Опции

[volvof12]

Дано условие:
Вводится последовательность слов. Определите, какое количество слов потребуется, чтобы задействовать все буквы английского (русского) алфавита. Ввод слов оканчивается, когда задействованы все буквы.

Я только не могу понять - Вводится последовательность слов - это кем должно вводиться последовательность, мной в самом коде или пользователем? Помогите разобраться

[Bokul]

Да уж наверное пользователем

Я тоже так думаю...

Вводится последовательность слов. Определите, какое количество слов потребуется, чтобы задействовать все буквы английского (русского) алфавита. Ввод слов оканчивается, когда задействованы все буквы.

Что такое слово и как оно вводится?

Вот решения (для английского алфавита), но оно имеет глюк: без этой строки

alph[0]:=chr(26);

переменной alph не присваивается значений
Почему?

uses crt;
var alph:string; s:string;
    i,j,n:byte;
    f: set of 'a'..'z';
begin
clrscr;
f:=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];
n:=0;
alph:='';
j:=0;
writeln('Enter the words');
s:='';
alph[0]:=chr(26);
repeat
      readln(s);
      for i:=1 to length(s) do
          begin
               if (s[i] in f) and (pos(s[i],alph)=0) then
                  begin
                       inc(j);
                       alph[j]:=s[i];
                  end;
          end;
      inc(n);
until j>=26;
writeln('Number : ',n);
readln;
end.