Вывести все цифры строки на экран без повторений

uses crt;
var s:string;
    m:set of char;
    i,k:byte;
begin
clrscr;
writeln('Введите строку, содержаую цифры');
readln(s);
m:=[];
k:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
 begin
  inc(k);
  m:=m+[s[i]];
 end;
writeln('Количество цифр=',k);
if k>0 then
 begin
  writeln('Это цифры');
  for i:=ord('0')to ord('9') do
  if chr(i) in m then write(chr(i),' ');
 end;
readln
end.

var
  s: String;
  m: set of '0'..'9';
  i, k: Integer;
  c: Char;
begin
  Write('Строка: '); ReadLn(s); {k:=0;}
  for i:=1 to Length(s) do
    if s[i] in ['0'..'9'] then begin
      Include(m,s[i]); Inc(k);
    end;
  Write('Цифр: ',k);
  if k>0 then begin
    Write(': ');
    for c:='0' to '9' do if c in m then Write(' ',c);
  end; WriteLn;
end.

var
  s: String;
  m: set of '0'..'9';
  i, k: Integer;
  c: Char;
begin
  Write('Строка: '); ReadLn(s); {k:=0;}
  for i:=1 to Length(s) do
    case s[i] of 
    '0'..'9': begin Include(m,s[i]); Inc(k); end;
    end;
  Write('Цифр: ',k);
  if k>0 then begin
    Write(': ');
    for c:='0' to '9' do if c in m then Write(' ',c);
  end; WriteLn;
end.