[Sharky]

вообщем все я сделал. Может кому нибудь пригодиться вот код :

Код:

program qwert;
 uses
   crt;
 type
  TDigit= 0..9;
  TDigits = Set Of Tdigit;
 var
  digitSet:Tdigits;
  i:Tdigit;
  ExpandedStr,s:string;
  edit:longint;

procedure F (A:longint; var d :Tdigits);
var
 result:Tdigits;
begin
 result:=[];
 While A > 0 Do
   Begin
     result:= result + [A mod 10];
     A := A div 10;
   End;
 d:=result;
end;

function IntToStr(i:longint):String;
 var
  s:string;
 begin
  str(i,s);
  IntToStr:=s;
 end;

begin
  clrscr;
  Writeln('Введите число для разложения');
  readLn(edit);
  F(edit,Digitset);
  ExpandedStr :='';
  for i:= 0 to 9 do
    if (i in DigitSet)
    then
    ExpandedStr := ExpandedStr + IntTostr(i) + #13#10;
    Write(ExpandedStr,' ');
end.

ЗЫ код для турбо среды