Вводится 2 множеств. Каждое из 5 цифр. Напечатать числа второго множества, входящие в первое множество - Turbo Pascal

Формулировка задачи:

Не работает. В чём может быть причина?

Program N1;
Uses crt;
 
type aa=set of 0..9;
var 
n,z,p,k,x:aa;
y,i,j:integer;
 
Begin
n:=[0];
writeln(i);
While (i in z)=false do begin
z:=z+[i];
n:=n+[1];
end;
 
While(n=[5])do begin
writeln(i);
end;
 
While (i in z) do begin
z:=z+[i];
n:=n+[1];
end;
 
Begin
p:=[0];
Writeln (j);
While (j in p)=false do begin;
p:=p+[j];
k:=k+[1];
end;
 
While (k=[5])=false do begin;
Writeln(j);
end;
 
Writeln (j);
While (j in p)=false do begin;
p:=p+[j];
k:=k+[1];
end;
 
Writeln (j);
end;
 
x:=z*p;
y:=0;
If(y in x)=true then (writeln (y));
y:=succ(y);
While (y<10)=false do begin; 
end;
 
begin
If (y in x)=true then (write(y));
y:=succ(y);
end;
end.

Решение задачи: «Вводится 2 множеств. Каждое из 5 цифр. Напечатать числа второго множества, входящие в первое множество»

Листинг программы

Program N1;
Uses crt;
const c=[0..9];
var n,z,x:set of 0..9;
    i,j:integer;
Begin
clrscr;
writeln('Введите 5 цифр в первое множество');
n:=[];
for i:=1 to 5 do
 begin
  repeat
   readln(j);
  until(j in c)and not(j in n);
  n:=n+[j];
 end;
writeln('Введите 5 цифр во второе множество');
z:=[];
for i:=1 to 5 do
 begin
  repeat
   readln(j);
  until(j in c)and not(j in z);
  z:=z+[j];
 end;
clrscr;
writeln('Первое множество');
for i:=0 to 9 do
if i in n then write(i:2);
writeln;
writeln('Второе множество');
for i:=0 to 9 do
if i in z then write(i:2);
writeln;
x:=n*z;
if x=[] then write('Во втором множестве нет цифр из первого')
else
 begin
  writeln('Цифры второго множества, которые есть в первом');
  for i:=0 to 9 do
  if i in x then write(i:2);
 end;
readln
end.

Объяснение кода листинга программы

Программа начинается с объявления необходимых переменных и констант. Затем происходит ввод 5 цифр в первое множество и сохранение их в переменной n. После этого происходит ввод 5 цифр во второе множество и сохранение их в переменной z. Далее происходит очистка экрана и вывод содержимого обоих множеств. Если второе множество не содержит цифр из первого, выводится сообщение об этом. В конце программы вычисляется произведение двух множеств и выводится результат.