множества, Несовпадение типов Опции

[-kosiak-]

Добрый вечер помогите пожалуйста исправить ошибку в проге сам найти не могу.

Дана непустая последовательность слов из стpочных pусских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном поpядке все согласные буквы, котоpые не входят ни в одно слово.

var
s,v:string[20];
sb,m:set of 'a'..'z';
i,l,j:integer;
begin
sb:=['b','c','d','f','g','h','j','k','l','m','n','p','r','s','t','v','w','x','z'];
m:=[];
writeln('vvedite stroku');
readln(s);
i:=1;
repeat
l:=i;
while (s[i]<>' ') or (s[i]<>',') or (s[i]<>'.') do
i:=i+1;
v:=copy(s,l,i-l);
for j:=1 to length(v) do
if v[j] in sb then
m:=m+v[j];
i:=i+1;
until s[i]='.';
sb:=sb-m;
writeln(sb);
End.

[klem4]

Пользуйся поиском, конкретно такая задача решалась ну и очень похожие.

Сообщение отредактировано: klem4 - 31.05.2006 21:32

[volvo]

Что особенно порадовало:

Дана непустая последовательность слов из стpочных
pусских букв <...>
...

...
sb,m:set of 'a'..'z';
...

[klem4]

В общем вот очень похожая задача, посмотри : Дан текст на русском языке ...