Programček

Pozdravljeni! Imam težavo, ki pa jo ne znam rešiti. Programski jezik v katerem delam je Pascal.

Rad bi naredil program, ki te vpraša po cifri, ta pa jo nato razbije na posamezne cifre. Se pravi, če vpišemo cifro 321, bo program izpisal cifre 3,2 in 1. Zaenkrat sem nekaj že naredil, vendar ne vem, kje se skriva težava, tako da prosim za pomoč.

program izpiscifre;

        var desetice,n, cifra: integer;
begin
       n:=10;
       writeln('Zapisi cifro, ki zelis da ti jo razbijem: ');
       readln(cifra);
       writeln('Tvoja cifra: ', cifra);
       while desetice>0 do
             begin
             desetice:=cifra mod n;
             writeln(desetice);
             n:=n*1;
             readln
       end;
readln;
end.

Ok, nekej maš prou; bom naredu en popravek, ja. Sam glede stringa pa nebi, zatko, ker še nismo tega jemali in nočem prehitevati; raj znam neki bolš, kot pa se nek silim. Tko de če ma še kdo kšno idejo, kako zadevco spravt v pogon kr plis povejte!