Строка: Вывести на экран буквы, которые встречаются хотя бы в одном множестве букв двух заданных слов

var
  s1, s2: string;
  ms1, ms2: set of char;
  i: integer;
  ch: char;
 
begin
  write('String № 1? ');
  readln(s1);
  write('String № 2? ');
  readln(s2);
  ms1 := [];
  ms2 := [];
  for i := 1 to length(s1) do 
    include(ms1, s1[i]);
  write('Set № 1: ');
  for ch := #0 to #255 do
    if ch in ms1 then 
      write(ch);
  writeln;      
  for i := 1 to length(s2) do 
    include(ms2, s2[i]);
  write('Set № 2: ');    
  for ch := #0 to #255 do
    if ch in ms2 then 
      write(ch);
  writeln;      
  write('Set № 3: ');          
  for ch := #0 to #255 do
    if ch in ms1 + ms2 then 
      write(ch);
  writeln;            
end.

uses crt;
type
  mnogestvo = set of char;
var
  mn1, mn2: mnogestvo;
  V, L: string;
  mn: set of char;
 
procedure vmnoj(sl: string; var mn: Mnogestvo);
var
  i: integer;
begin
  mn := [];
  for i := 1 to length(sl) do
    mn := mn + [sl[i]];
end;
 
procedure Vivod(mn: Mnogestvo);
var
  ch: char;
begin
  for ch := 'a' to 'z' do
    if (ch in mn1) and (ch in mn2) 
      then write(ch, ' ');
end;
 
begin
  clrscr;
  write('введите слово X: ');
  readln(V);
  write('введите слово Y: ');
  readln(L);
  vmnoj(V, mn1);
  vmnoj(L, mn2);
  write('буквы, которые  встречаются хотя бы в одном множестве : ');
  ivod(mn);
end.