Задача на множества

[ApXoH]

Для двух строк введенных с клавиатуры создать и вывести множество цифр которые входятв первую строку и не входят во вторую.
Программа работает неверно( Не знаю как исправить чтобы она выдавала мне только цифры, и чтобы один знак в множестве 2 (например "C" или "1') убирал в множестве 1 все подобные знаки и на выводе было не так:
1: вввввваааа111233336789
2: вввваа1233
1-2: вваа11336789

а так:
1-2: 6789
Если вам не трудно - помогите - очень нужно!!!

Program p1;
uses crt;
Type Tmn=set of char;
Procedure Create(a:string;var b:Tmn);
var i:byte;
begin
b:=[];
for i:=1 to lenght(a) do
if not (a[i] in b) then b:=b+[a];
end;
Procedure Print (var b:Tmn);
var i:byte;
begin
for i:=1 to 255 do
if chr(i) in b then
write (chr(i) ,' ');
writeln;
end;
var s1,s2:string;
m1,m2:Tmn;
i:integer;
begin
clrscr;
write('s1: ');
readln(s1);
write('s2: ');
Create(s1,m1);
Print(m2);
writeln('Mnojestvo 1-2:');
m1:=m1-m2;
Print(m1);
readln;
end.

[__STDC__]

uses crt;
type
	tmn=set of char;

procedure create(var x:tmn;str:string);
var
	i:integer;
begin
	for i:=1 to length(str) do
		x := x+[str[i]];
end;
	
Procedure Print (var b:tmn);
	var i:byte;
begin
	for i:=48 to 58 do
		if chr(i) in b then
			write (chr(i) ,' ');
	writeln;
end;

var
	s1,s2:string;
	m1,m2:Tmn;
	i:integer;

begin
	clrscr;
	write('s1: ');
	readln(s1);
	create(m1,s1);

	write('s2: ');
	readln(s2);
	create(m2,s2);
	
	Print(m1);	
	Print(m2);

	writeln('Mnojestvo 1-2:');
	m1:=m1-m2;
	Print(m1);

	readln;
end.

так что ли?
P.S. в мн-ве одинаковых элементов не содержится по определению... это не массив...

[ApXoH]

Огромное спасибо))) вроде так)))

[__STDC__]

Да не за что..