В PASCAL ABC написать программу, используя цикл while, которая находит одинаковые цифры двух трёхзначных чисел, при этом на экран с клавиатуры должны выводиться только трёхзначных числа, только чётные и только различные

program fantscrin;

   var x_1,x_2,h,j,i:integer; f:boolean; a: array [1..3] of string; k,l:string;

   function chek_number(a:integer):boolean;

   var k:integer;

   begin

     if (a mod 2 <> 0) then  

                       begin  

                         chek_number:=false;

                         exit;

                       end;                  

     while a > 0 do

     begin

       a:=a div 10;

       k:=k+1;

     end;

     if (k = 3) then chek_number:=true

                else chek_number:=false;  

   end;

begin

    f:=false;

    while f = false do

    begin

     write('Введите 1-ое число: '); readln(x_1);

     f:=chek_number(x_1);

    end;

    f:=false;

    while f = false do

    begin

     write('Введите 2-ое число: '); readln(x_2);

     f:=chek_number(x_2);

     if (f) then if (x_1 <> x_2) then f:=true

                                 else f:=false;

    end;

   str(x_2,l);

   str(x_1,k);

   i:=1;

   h:=1;

   while i<=3 do

   begin

     j:=1;

     while j<=3 do

     begin

       if (k[i] = l[j]) then  

                        begin    

                           a[h]:=k[i];

                           h:=h+1;

                        end;

       j:=j+1;

     end;

     i:=i+1;

   end;

   writeln('');  

   i:=1;

   while i <=3 do

   begin

     write (a[i], '  ');

     i:=i+1;

   end;

end.