Mi lehet a gond (pascal kod, többi lent)?

Itt a feladat:

Készítsünk programot, amely beolvas egy egész számot, majd elosztja 2-vel annyiszor, ahányszor lehet és közben felírja a számot a kettes számok  szorzataként megszorozva egy olyan számmal, amely már nem osztható 2-vel. Például:

Kerek egy egesz szamot: 120

120 = 2*2*2*15

Itt a kod:

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

szam:integer;

oszto:integer;

begin

oszto:=1;

write('Kerem irjon be egy szamot: ');

readln(szam);

writeln;

write(szam, '= ');

while szam mod 2=0 do begin

szam:=szam / 2;

oszto:=oszto*2;

write('2 *');

end;

write(szam/oszto);

readln;

end.

És ezt a hibaüzenetet kapom a szam:=szam / 2; sornál

[Error] Project2.dpr(20): Incompatible types: 'Integer' and 'Extended'