Вывести на экран все гласные и глухие согласные, которые входят хотя бы в одно слово

program Zadanie2;
const
 b = ['a','e','ё','и','о','у','ы','э','ю','я','п','ф','к','т','ш','с'];
var 
  a: array[1..4] of set of char;
  s: string;
  i,j: integer;
begin
  for i := 1 to 4 do
  begin
   write('Введите ',i,'-е слово: ');
   readln(s);
   for j := 1 to Length(s) do 
    if s[j] in b then include(a[i], s[j]);
  end;
  Write((a[1]-a[2]-a[3]-a[4])+(a[2]-a[1]-a[3]-a[4])+(a[3]-a[1]-a[2]-a[4])+(a[4]-a[1]-a[2]-a[3]));
end.

const
b = ['a','e','ё','и','о','у','ы','э','ю','я','п','ф','к','т','ш','с'];
type mn=set of char;
procedure mnz(s:string;var m:mn);
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in b then include(m,s[i]);
end;
var s:array[1..4] of string;
     m:set of char;
     i: integer;
     c:char;
begin
m:=[];
for i := 1 to 4 do
 begin
  write('Введите ',i,'-е слово из строчных русских букв: ');
  readln(s[i]);
  mnz(s[i],m);
 end;
writeln('Гласные и глухие согласные буквы в словах');
if m=[] then write('Таких букв нет')
else
for c:='а' to 'я' do
if c in m then write(c:2);
end.