Задача на функцию

const ss:array [0..9] of string=('0','1','2','3','4','5','6','7','8','9');
var i,j,n,m:integer;
    s:string;
begin
 write('Введите m='); readln(m);
 write('Введите n='); readln(n);
 for i:=0 to 1 do
  begin
   write('Для ',chr(109+i),' :');
   str(m,s);    {преобразовать в текст}
   for j:=0 to 9 do if pos(ss[j],s)<>0 then write(ss[j],' ');
   writeln;  {начать новую строку}
   m:=n;    {теперь - для n}
  end;
 readln;     {задержать экран}
end.

var n,m:integer;
function cyfra(m:integer):string;
const ss:array [0..9] of string=('0','1','2','3','4','5','6','7','8','9');
var j:integer;
    s,sss:string;
begin
 sss:='';
 str(m,s);
 for j:=0 to 9 do if pos(ss[j],s)<>0 then sss:=sss+ss[j];
 cyfra:=sss;
end;
begin
 write('Введите m='); readln(m);
 write('Введите n='); readln(n);
 writeln('Для m :',cyfra(m));
 writeln('Для n :',cyfra(n));
 readln;
end.

const ss:string='0123456789';

uses crt;
type
mnoz=set of 0..9;{множество цифр}
procedure Cifry(a,b:longint;var m:mnoz);
var ka,kb,i:byte;
begin
m:=[];
while (a>0)and(b>0) do
 begin
  ka:=a mod 10;{отделяем цифры}
  m:=m+[ka];{заносим в множество}
  a:=a div 10;
  kb:=b mod 10;
  m:=m+[kb];
  b:=b div 10;
 end;
writeln('В запись чисел входят цифры:');
for i:=0 to 9 do
if i in m then write(i,' ');{все что есть в множестве по 1 разу выводим}
readln
end;
var n,m:longint;
    mn:mnoz;
begin
clrscr;
writeln('Введите 2 числа:');
readln(n,m);
Cifry(n,m,mn);
end.