Skaitmenų radimas pascalyje

Sveiki, reikia sukurti programą su procedūra kūri ieškotų įvesto skaičiaus skaitmenų.

reikia kad atskirai atspausdintu skaiciu pvz yvedi 1234 ir kad rasytu 1 2 3 4?

Ne, kiek išviso yra skaičiūje skaitmenų, pvz įrašai 5897, tai yra 4 skaitmenys. Informos mokytojas reikalauja tai padaryti su procedure komanda.

program Bevardė13;

var s,g:longint;

procedure skaitmenys(s:longint);

begin

while s>0 do

begin

s:=s div 10;

g:=g+1;

end;

Writeln('Skaičius sudarytas iš ',g,' skaitmenų');

end;

begin

WriteLn('Įvesktie skaičių');

Readln(s);

skaitmenys(s);

end.

skaičiuoja iki 11 skaitmenų ilgio skaičių

program skaitmenuradimas;
//procedura skaityti duomenis ir rasti skaitmenis
procedure skaitmenys;
var i, s, sk : integer;
begin
   writeln('iveskite sakiciu ');
   readln(sk);
   s := 0;
   while sk <> 0 do
       begin
           s += 1;
           sk := sk div 10;
       end;
   writeln ('skaicius turi ', s, ' skaimenis');
   Readln;
end;
begin
 skaitmenys;
end.

kazkas panasaus..

Ačių labai abiems :)