Ошибка в коде (Delphi)

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста найти ошибку в коде, вроде бы все так сделал, но прога после ввода одного числа почему-то вылетает.

Условие задачи.
Дана последовательность из N натуральных чисел. Написать программу,
которая выводит в возрастающем порядке все четные цифры, которые не
входят только в одно число.

program Project2ik;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;
type
  Tset=set of byte;
var
  a:array of Tset;
  mn,mn1:Tset;
  n,i,j,k,x:integer;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);

  write('Введите количество натуральных чисел: ');
  readln(n);
  writeln('Введите ',n,' натуральных чисел:');
  for i:=0 to n-1 do
    begin
      repeat
        readln(x)
      until x>0;
      a[i]:=[];
      while x>0 do
        begin
          k:=x mod 10;
          if k mod 2=0 then
            a[i]:=a[i]+[k];
          x:=x div 10
        end
    end;

  mn1:=[];
  for i:=0 to n-1 do
    begin
      mn:=[];
      for j:=0 to n-1 do
        begin
          if j<>i then
            mn:=mn+a[j]
        end;
      mn1:=mn1+(a[i]*mn)
    end;

  if mn1=[] then writeln('Четных цифр, которые не входят в одно число, нет!')
  else
    begin
      writeln('Четные цифры, которые не входят в одно число:');
      for i:=0 to n do
        begin
          if i in mn1 then
            write(i);
          writeln
        end
    end;
  readln
end.

[BDA]

Сомневаюсь в правильности самого решения, но теперь не вылетает:

program Project2ik;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;
type
  Tset=set of byte;
var
  a:array of Tset;
  mn,mn1:Tset;
  n,i,j,k,x:integer;
begin
  write('Count of numbers: ');
  readln(n);
  writeln('Input ',n,' numbers:');
  setlength(a,n);
  for i:=0 to n-1 do
    begin
      read(x);
      a[i]:=[];
      while x>0 do
        begin
          k:=x mod 10;
          if k mod 2=0 then
            a[i]:=a[i]+[k];
          x:=x div 10
        end
    end;

  mn1:=[];
  for i:=0 to n-1 do
    begin
      mn:=[];
      for j:=0 to n-1 do
        begin
          if j<>i then
            mn:=mn+a[j]
        end;
      mn1:=mn1+(a[i]*mn)
    end;

  if mn1=[] then writeln('No numbers')
  else
    begin
      writeln('Numbers:');
      for i:=0 to 9 do
        begin
          if i in mn1 then
            writeln(i);
        end
    end;
  readln;
  readln;
end.

[Начинающий програм]

Спасибо!!! Можете сказать что именно вызывает у Вас сомнение в правильности кода?

[BDA]

Я пока не могу сказать, что именно в коде, но вот простейший пример:
5 чисел
23 24 25 26 27
Программа отвечает 2, но это не так

Вот мой вариант:

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a:set of byte;
  b:array[0..9] of integer;
  n,i,j,x:integer;
  t:boolean;
begin
  for i:=0 to 9 do
    b[i]:=0;
  write('Count of numbers: ');
  readln(n);
  writeln('Input ',n,' numbers:');
  for i:=0 to n-1 do
    begin
      read(x);
      a:=[];
      while x<>0 do
      begin
        j:=x mod 10;
        if not(j in a) then
        begin
          inc(b[j]);
          a:=a+[j];
        end;
          x:=x div 10;
      end;
    end;

  t:=true;
  i:=0;
  while i<=8 do
  begin
    if b[i]=n-1 then
    begin
      t:=false;
      write(i,' ');
    end;
    i:=i+2;
  end;
  if t then
    write('No numbers');
  readln;
  readln;
end.

[Начинающий програм]

Да, запутанное условие. Возможно даже вы правы. Но я понял условие чуть иначе, если ввести 654 84 14 65 27 Должно получиться 4 6

[BDA]

Не входят только в одно число ~ входят во все кроме одного.

654 84 14 65 27

а по-моему, ни одного
4 не входит в 2 числа
6 не входит в 3 числа

[Начинающий програм]

То есть из такого ряда 68 45 84 98 38 должно вывестись 8. ?

[BDA]

На мой взгляд, да.

[Начинающий програм]

Я приму Ваше мнение к сведению. Благодарствую!