Pascal, integer to string

Spíš řekni čeho chceš dosáhnout, to se bude radit líp.
Mimochodem ti to nebude fungovat asi vůbec, protože string se musí číst Readln.

Program Prevodz;

Program. který bude převádět celá, kladná čísla z desítkové soustavy na dvojkovou soustavu.
Tohle jsem zatím napsal, ale zasekl jsem se na těch datových typech.

var i, a, cele: integer;
vysledek: string;

begin
writeln('Zadej celé kladné číslo v desítkové soustavě,' );
writeln('které bude převedeno do dvojkové soustavy');
readln (cele);

i:=0;
vysledek:='';

while (cele <> 0) do
begin
vysledek[i]:= (cele mod 2);
cele:= cele div 2;
i:=i+1;
vysledek:= vysledek + vysledek[i];
end;
writeln (vysledek);
readln();
end.

Aha, tak to na to jdeš celkem složitě - u dvojkové soustavy jsou jen nuly a jedničky, tak neřeš převod na string, ale rovnou do něj přidávej "0" nebo "1"

Nenapadá mně jak to provést.

Přece takto (nezapomeň, že to vlastně zjišťuješ od konce):
if cele mod 2 =1
then vysledek:='1'+vysledek
else vysledek:='0'+vysledek;

počítání toho i můžeš taky zrušit...

Děkuju.