Kettes számrendszerbeli szám karakterlánc használata nélküli visszaalakítása tizesbe, hogyan?

A Math unit azért maradt benne, mert a visszaalakítással kísérleteztem és eredetileg ebben az unit-ból hívható kóddal szándékoztam ezt végrehajtani.

Tudom, hogy rettenetes hibát követtem el, mert benne maradt a bemásolt kódban, de már nem tudok mit tenni.

Sejtelmem sincs, hány ember kedvét vehetik el a bántó stílusban megfogalmazott válaszok, akik egyébként szeretnének programozni.

Azzal kapcsolatban 0 észrevételed volt, aki összekeverte a függvényt az eljárással, kellemetlenül érezte magát emiatt és bántó megnyilvánulásai voltak.

program kettes;

{$MODE OBJFPC}

var

szam : qword;

i : byte;

jegyek_k : array of byte;

procedure szam_kettesbe;

Begin

i := 0;

while szam > 0 do

begin

SetLength(jegyek_k, i + 1);

jegyek_k[i] := szam mod 2;

szam := szam div 2;

Inc (i);

end;

end;

procedure kiiratas;

begin

WriteLn('A megadott szám kettes számrendszerben : ');

WriteLn;

for i := High(jegyek_k) downto 0 do

Write(jegyek_k[i]);

WriteLn;

end;

function tizesbe:qword;

begin

Result := 0;

for i := high(jegyek_k) downto 0 do

Result := Result*2+(jegyek_k[i]);

end;

begin

Write('Kerem a szamot : ');

ReadLn(Szam);

szam_kettesbe;

kiiratas;

WriteLn('tizesben : ',tizesbe);

ReadLn;

end.