Две задачи в Delphi "Программирование с использованием множеств".

[grongost]

1. Дана строка, состоящая из букв, цифр и знаков. Выписать из строки только цифры (в порядке возрастания, не повторяясь).
Пример - Исходная строка: "Мой тел.: (8-033)-7244570" => Результат: "0234578".

Вот что получилось к первой задаче:

procedure TForm2.Button1Click(Sender: TObject);
var
s1,s2:string;
m1,m2:set of char;
i:integer;
begin
s1:=edit1.Text;
m1:=[ ];
for i := 1 to length(s1) do
    m1:=m1+[s1[i]];
    m2:=m1;
    s2:='';
    for i := 0 to 255 do
    if chr(i) in m2 then
      s2:=s2+chr(i);
  Edit2.Text:=s2;
end;

Определяет из строки буквы и цифры в порядке возрастания.



2. Составить программу для перевода числа из 8-й системы счисления в 2-ю.