Pascal: egy string karaktereit szeretném számjegyekre bontani, kis segítséget kérhetek? (bővebben lent)

Az "strtoint" és hasonlók nélkül szeretném megoldani, kizárólag osztogatással...

Kétjegyű számoknál szépen működik (az hogy fordítva írja ki, nem lényeg, mert azt meg tudom oldani), de háromjegyűeknél nem akar működni...

Számjegyenként van szükségem az adott számra és nem szeretném ha két számjegyűt kiírna.

Hiába teszek be bármilyen feltételt, nem jó.

Netán úgy kellene megoldani, hogy intervallummal megadom, hogy miként ossza le, ha 0..9, 10.. 99, stb intervallumba esik a szám?

Hogy a legegyszerűbb, hogy működjön?

Program szamjegy_bontas;

var

s : string;

i, szam, maradek : byte;

begin

ReadLn(s);

for i := 1 to Length (s) do

begin

szam := Ord(s[i]);

Repeat

maradek := szam mod 10;

if maradek > 10 then begin

maradek := maradek div 10;

writeln(maradek);

szam:=maradek;

end

else

writeln(maradek);

maradek:= szam div 10;

writeln(maradek);

until(maradek>0);

end;

end.