Разбиение на раздяры

[Aerowalk]

Здравствуйте, уважаемые форумчане. Пожалуйста, покажите где неправильно в программе: разбить число на разряды, вот 2 программы и ни одна не работает:

program Razdelenie (output);
uses crt;
var n, digit: integer;
begin
  clrscr;
  readln(n);
  while (n>0) do
  begin
   digit:=n mod 10;
   writeln (digit);
   n:=n div 10;
  end;
  readkey;
end.

  Program Get_numbers; 
     var 
   A, B: Integer;
   begin 
   Write('Enter number: '); 
   Readln(A); 
   While A > 0 do 
   begin 
   B := A mod 10; 
   Dec(A, B); 
   A := A div 10; 
   Writeln('Razrayd: ', B); 
   end;
   Readln; 
   end.

вот например число 76859 не то показывает

[Ol'ga_new]

Решать не буду, но может если внести мои изменения что то придет на ум?!!!

Program Get_numbers;  
     var  
   A, B,i: Integer; 
   begin  
   Write('Enter number: ');  
   Readln(A);  
i:=1;
   While A > 0 do  
   begin  
   B := A mod 10;  
   Dec(A, B);  
   A := A div 10;  
   Writeln('Razrayd: ', B*i);  
i:=i*10;
   end; 
   Readln;  
   end.

[Sam Gold]

вот 2 программы и ни одна не работает:

Они правильно работают-выводят разряды введенного числа начиная с самого младшего.