Една програмка на паскал

Моля ви за помощ за една програма на паскал. Програмата е следната:

Дадена е декларацията
Var k:0..99999;
d:array[1..5] of'0'..'9';
Да се напише програма, която:
а) записва цифрите на цяло число k в едномерния масив d;
б) намира цяло число k, образувано от цифрите, съставящи масива d.

Предварително благодаря на всеки, който реши да ми помогне.