Отобразить гласные, которые входят в первую строку, и не входят во вторую.

Program mult;
uses crt;
var s,s1:string;
c,x:char;
a,b,v:set  of  'A'..'Z';
i:integer;
begin clrscr;
a:=['A','O','I','E','U','Y'];
Writeln('Introd sir');
readln(s);
b:=['A','O','I','E','U','Y'];
Writeln('Inrtod sir1');
readln(s1);
v:=[];
for i:=1 to length(s) do begin
c:=upcase(s[i]);
if c in a-v then
v:=v+[c];
end;
for i:=1 to length(s1) do begin
x:=upcase(s1[i]);
if x in b-v then
v:=v+[x];
 
 
 
end;
 
readkey;
end.

uses crt;
const gl=['A','a','E','e','I','i','O','o','U','u','Y','y'];
var s1,s2:string;
    m1,m2:set of char;
    i:byte;
    c:char;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ ЇҐаўго бва®Єг:');
readln(s1);
writeln('‚ўҐ¤ЁвҐ ўв®аго бва®Єг:');
readln(s2);
m1:=[];
for i:=1 to length(s1) do
if s1[i] in gl then m1:=m1+[s1[i]];
m2:=[];
for i:=1 to length(s2) do
if s2[i] in gl then m2:=m2+[s2[i]];
m1:=m1-m2;
writeln('ѓ«*б*лҐ, Є®в®алҐ Ґбвм ў бва®ЄҐ 1, *® *Ґв ў бва®ЄҐ 2:');
for c:='A' to 'y' do
if c in m1 then write(c,' ');
if m1=[] then write('’*ЄЁе ЎгЄў *Ґв!');
readln
end.