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

[volvof12]

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

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

[Bokul]

Большое спасибо за объяснение Не первый раз делаю такую ошибку, теперь
наконец-то понял из-за чего она возникает...

(Не тестировал, но по-моему, должно работать)

until j>=26;

Так как убрана переменная j, то надо поминять и цикл...

until length(alph)>=26;

[Malice]

По идее, раз задание на множества, то и делать надо через множества, примерно вот так:

type sett=set of 'a'..'z';
var f,z:sett;
i:integer;
c:char;
s:string;
begin
for c:='a' to 'z' do f:=f+[c];
repeat
readln(s);
for i:=1 to length(s) do z:=z+[s[i]];
until f-z=[];
end.