Explode funkcija pascalyje

Reikia explode funkcijos su pascaliu, kai iš anksto nežinai, kokio ilgumo bus duotas skaičius. (explode reiškia 123456 paversti į pavienius skaitmenis. ty: 1 2 3 4 5 6). Gal kas pagelbėsit? :)

Ir kokiu formatu tie atskiri skaičiai turi būti išvedami? Į integerių masyvą? :)

na nžn man pačio algoritmo šito dalyko reikia :) toliau jau pats susidėsiu.

Užduotis tokia:

Parašykite algoritmą rasti visiems nurodyto intervalo [a, b] sveikiesiems skaičiams, kurie dalijasi iš visų savo skaitmenų (a, b - naturalieji skaičiai)

tai čia su mod ir div žaist turbūt :)

tai čia su mod ir div žaist turbūt :)

Šitą tai žinau, tačiau seniai jau su tokiais dalykais žaidžiau ir sugalvoti patį algoritmą truputį užtruktų man, todėl klausiu čia :D

program Omui;

var i, a, b: integer;

function ar_dalinasi(sk: integer): boolean;
var t: integer;
tinka: boolean;
begin
tinka := true;
t := sk;
while t > 0 do
	begin
		if t mod 10 <> 0 then
			begin
				if (sk mod (t mod 10)) <> 0 then
					begin
						tinka := false;
						break;
					end;
			end
			else tinka := false;
		t := t div 10;
	end;
ar_dalinasi := tinka;
end;


begin
readln(a, b);
writeln;
for i := a to b do
	if ar_dalinasi(i)
		then writeln (i);

Readln;
end.