Множества. Определить повторяющиеся согласные в 2 строках

uses crt;
const g=['А','Ё','У','Е','Ы','О','Э','Я','И','Ю',
         'E','Y','I','O','A','U','Ъ','Ь',
         'а','ё','у','е','ы','о','э','я','и','ю',
         'e','y','i','o','a','u','ъ','ь'];
      a=['А'..'Я','A'..'Z','а'..'я','a'..'z'];
      s=a-g;
var s1,s2: string;
    m1,m2,rez: set of char;
    i: byte;
begin
m1:=[]; m2:=[];
write('s1='); readln(s1);
write('s2='); readln(s2);
for i:=1 to length(s1) do
    if s1[i] in s then m1:=m1+[s1[i]];
for i:=1 to length(s2) do
    if s2[i] in s then m2:=m2+[s2[i]];
rez:=m1*m2;
for i:=1 to 255 do
    if chr(i) in rez then write(chr(i),' ');
end.

uses crt;
const g=['А','Ё','У','Е','Ы','О','Э','Я','И','Ю',
         'E','Y','I','O','A','U','Ъ','Ь',
         'а','ё','у','е','ы','о','э','я','и','ю',
         'e','y','i','o','a','u','ъ','ь'];
      a=['А'..'Я','A'..'Z','а'..'я','a'..'z'];
      s=a-g;
var s1,s2: string;
    m1,m2,rez: set of char;
    i,k: byte;
begin
m1:=[]; m2:=[];
write('s1='); readln(s1);
write('s2='); readln(s2);
for i:=1 to length(s1) do
    if s1[i] in s then m1:=m1+[s1[i]];
for i:=1 to length(s2) do
    if s2[i] in s then m2:=m2+[s2[i]];
rez:=m1*m2;
for i:=1 to 255 do
    if chr(i) in rez then
       begin
       write(chr(i),' ');
       inc(k);
       end;
writeln;
writeln(k);
end.