Создать два множества.Подсчитать количество четных элементов во множестве, которое является пересечением этих двух множеств

uses crt;
type
  TMn = set of 0..51;
 
var
  Mn1,Mn2,Mn3:TMn;
  i,a,j:integer;
  
Procedure Mnog(fMn:TMn);
var
  i:integer;
begin
  For i:=0 to 51 do
    begin
      if i in fMn then
        Write(i:3);
    end;
  Writeln;
end;
 
{--PROGRAMM--}
begin
  Mn1:=[];
  Mn2:=[];
  i:=0;
  while i<=20 do
    begin
      Randomize;
      a:=Random(51);
      if not (a in Mn1) then
        begin
          Mn1:=Mn1+[a];
          inc(i);
        end;
    end;
 
  i:=0;
  while i<=20 do
    begin
      Randomize;
      a:=Random(51);
      if not (a in Mn2) then
        begin
          Mn2:=Mn2+[a];
          inc(i);
        end;
    end;
    
  Mn3:=Mn1*Mn2;
  Write('1 множество:');
  Mnog(Mn1); Writeln;
  Write('2 множество:');
  Mnog(Mn2); Writeln;
  Write('3 множество:');
  Mnog(Mn3); Writeln;
  
  j:=0;
  Write('Четные элементы:');
  for i:=0 to 50 do
    if (i in Mn3) and ((i)Mod(2)=0) then
      begin
        inc(j);
        Write(i:3);
      end;
  Writeln; Write('Количество четных элементов: ',j);
end.