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

[Shain]

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

program zadacha;
s:string;
i,n:integer;
c:char;
m1,m2,m3:set of 'a'..'z';
begin
writeln('vvedite n');
m1:=[];
m2:=['a','e','i','o','u','y'];
m3:=[];
for i:=1 to n do
begin
writeln('vved c');
readln(c);
m1:=m1+[c];
end;
m3:=m1-m2;
writeln('rezult');
for c in m3 then
writeln(c,' ');
readln;
end.

[OCTAGRAM]

Сообщение от Shain

for c in m3 then

Это типа Delphi?

[Shain]

нет...всё паскаль...

[OCTAGRAM]

И что, компилируется?

[Shain]

еще раз..)что?

[OCTAGRAM]

Эта программа вообще работает?

[__STDC__]

var
	text:string;
	x:set of char;
	i:byte;
	j:char;
begin
	text := 'abcdefghijklmnopqr';
	x := ['a'..'z'] - ['e','y','u','i','o','a'];
	for i:=1 to length(text) do
		if (text[i] in x) then
			x := x - [text[i]];
	for j:='a' to 'z' do
		if (j in x) then
			write(j:2);
end.

Oo

[Shain]

но почему у этой задачи всегда выходить один и тот же ответ?Оо

[alex_fcsm]

Сообщение от Shain

но почему у этой задачи всегда выходить один и тот же ответ?Оо

Сделай ввод

[Stilet]

И что, компилируется?

А че нет? IN стандартный оператор классического паскаля для проверки вхождения в множество.