Текст задания

Дан текст, в который входят буквы латинского алфавита. За текстом следует точка. Напечатать по одному разу все гласные буквы, входящие в текст.

Исходный код программы

Program mn_1;
uses crt;
var
m,o: set of char;
key: char;
i:integer;
begin
clrscr;
Writeln('vvedite text: ');
m:=['a','e','y','u','i','o']; {задаем множество гласных букв}
repeat
   key:=readkey;
   write(key);
   if key in m then include(o,key); {если введеный символ находится в множестве гласных букв, то добавляем его в множество о}
until key=#46;
writeln;
Writeln('glasnie:');
for i:=97 to 122 do {перебор по кодам символов, код 97 соответствует 'a', 122- 'z'}
 if char(i) in o then write (char(i),' '); {если символ, соотв. коду есть во множестве о, то выводим его на экран}
readln;
end.

Результат работы программы