Rozdzielanie liczby rzeczywistej na cyrfy

Witam
Piszę na forum z prośbą o pomoc w sprawie niżej podanego programu. Ten program rozdziela liczbę całkowitą na cyfry, a mi zależy na tym, aby potrafiło rozdzielić liczbę rzeczywistą na cyfry.
Z góry dziękuje i proszę o szybką pomoc.

program cyferki;
uses crt;
var
  n:integer;
  x,y:shortint;
begin
  clrscr;
  writeln('Rozbieram liczbe n na cyferki');
  write('n=');
  readln(n);
    if n<0
    then begin
    n:=n*-1;
    write('-');
    y:=trunc(ln(n)/ln(10))+1+2+1;
  end
  else
  y:=trunc(ln(n)/ln(10))+1+2;
  x:=2;

  repeat
    gotoxy(x,y);
    write(n mod 10);
    n:=n div 10;
    dec(y);
    delay(200);
  until n<=0;
 readln;
end.

A powiedz mi na ile cyfr musi być podzielona liczba z:=1/3; ?
Owszem nie taką liczbę "dzielisz" na cyfry zaś to ewidentnie pokazuje że czegoś nie rozumiesz w tym zadaniu.

Rozumiem o co chodzi w zadaniu, lecz nie wiem jak to napisać. W zadaniu chodzi o napisanie programu, a raczej zmodyfikowanie tego który jest tak, aby potrafił rozdzielić liczbę rzeczywistą na cyfry i chcę, aby ktoś m wytłumaczył jak to napisać, ewentualnie co dodać co usunąć, albo czy pisać od nowa program, a jeżeli tak to jak go napisać, aby działał tak jak ja chcę.

@Kubaaa - skoro i tak wypisujesz cyfry na ekranie, to równie dobrze możesz przekonwertować liczbę rzeczywistą na łańcuch funkcją FloatToStr (lub FloatToStrF jeśli chcesz określić np. precyzję); Po konwersji każdy znak możesz wypisać w odpowiednim miejscu okna konsoli.