Описать функцию, которая возвращает количество разных цифр входящих в запись числа

var l:longint;
i, j:byte;s:string;
begin
writeln('vvedite chislo');
readln(l);
str(l, s);
for i:=1 to length(s) do
for j:=1 to length(s) do begin
if ((s[i] = s[j]) and (j;i)) then break
else if (j=length(s)) then begin
write(' ', s[i], ' '); break;
end;
end;
readln;
end.

var m1:array[0..3, 0..2] of integer;m2:array[0..3, 0..3] of integer;
m3:array[0..2, 0..2] of integer;
i, j, m1g, m2g, m3g:integer;
begin
m1g:=1;m2g:=1;m3g:=1;
writeln('Vvedite pervuyu:');
for i:=0 to 3 do
for j:=0 to 2 do begin
write('M1[', i, ', ', j, '] = ');
readln(m1[i, j]);
end;
for i:=0 to 3 do
m1g:=m1g*m1[i, 2];
 
writeln('Vvedite vtoruyu:');
for i:=0 to 3 do
for j:=0 to 3 do begin
write('M2[', i, ', ', j, '] = ');
readln(m2[i, j]);
end;
for i:=0 to 3 do
m2g:=m2g*m2[i, 2];
 
writeln('Vvedite tret''yu:');
for i:=0 to 2 do
for j:=0 to 2 do begin
write('M3[', i, ', ', j, '] = ');
readln(m3[i, j]);
end;
for i:=0 to 2 do
m3g:=m3g*m3[i, 2];
 
if ((m1g;m2g) and (m1g;m3g)) then begin
writeln('Pervaya!');
for i:=0 to 3 do begin
writeln(' ');
for j:=0 to 2 do
write('  ', m1[i, j], '  ');
end;
end;
 
if ((m2g;m1g) and (m2g;m3g)) then begin
writeln('Vtoraya!');
for i:=0 to 3 do begin
writeln(' ');
for j:=0 to 2 do
write('  ', m2[i, j], '  ');
end;
end;
 
if ((m3g;m2g) and (m3g;m1g)) then begin
writeln('Tret''ya!');
for i:=0 to 2 do begin
writeln(' ');
for j:=0 to 2 do
write('  ', m3[i, j], '  ');
end;
end;
 
readln;
end.