Odredjivanje cifara nekog broja

program CifreBrojeva;

var Broj, i, P:longint;
    Cifra:array[1..10] of longint;

begin
     writeln('Unesite neki broj');
     readln(Broj);
     P:=1;
     for i:= 1 to 10 do
     begin
          if(Broj div P < 1) then
                  break;
          Cifra[i]:=(Broj mod (P*10)) div P;
          P:=P*10;
          Writeln('---> ',Cifra[i]);
     end;
     readln;
end