СРОЧНО!!!
Помогите решить задачу в Pascal.
"С клавиатуры вводятся два слова. Требуется найти множество гласных букв ,которые входят в первое слово ,но не входят во второе слово." Помогите срочно ,пожалуйста,в PASCAL!!

Принцип локальности? Не, не слышал

const  gl = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];var  w1, w2: string;  m: set of char;  c: char;  i: integer;begin  Writeln('Введите первое "слово"');  Readln(w1);  Writeln('Введите второе "слово"');  Readln(w2);  m := [];  w1 := LowerCase(w1);w2 := LowerCase(w2);  for i := 1 to length(w1) do    if w1[i] in gl then Include(m, w1[i]);  for i := 1 to length(w2) do    if w2[i] in m then Exclude(m, w2[i]);    Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:');  foreach c in m do Write(c, ' ');  Writelnend.Тестовое решение:Введите первое "слово"Дай, Джим, на счастье лапу мне!Введите второе "слово"Сергей ЕсенинГласные, присутствующие в первом слове и отсутствующие во втором:а у