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

[volvof12]

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

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

[volvo]

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

Вот тебе еще одна причина не пользоваться грязным хаком

При работе со строками никогда не прикасайся к нулевому символу !!! В FPC, например, такая программа откажется компилироваться...

Покажи мне в своей программе, где ты заполняешь строку alph значениями? Вот это:

alph[j]:=s[i];

- не в счет, здесь ты меняешь какой-то определенный символ, а это не совсем корректно (с учетом того, КАК ты в начале изменил длину строки)...

Насколько я вижу, правильным вариантом будет такой:

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];
            alph := alph + s[i]; // Эквивалентная замена, но корректная !!!
         end;
      end;
      inc(n);
  until j>=26;
  writeln('Number : ',n);
  readln;
end.

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