Программа на Delphi

[Янки19]

Помогите составить программу на языке Delphi.
Составьте программу, подсчитывающую сумму тех цифр числа M, что являются делителями числа N

[ZX Spectrum-128]

1. Нужно найти делители числа n, но не все, а только в интервале [2..9].
Например так:

Delit:=[]; // пустое множество цифр
For i:=2 to 9 do
  If n mod i =0 then // является делителем
    Include(delit,i);   // заносим во множество

2. Далее в цикле нужно последовательно находить цифры числа m. Если они входят во множество делителей, то считать их сумму.