regn til procent %?

Hvordan kan man regne noget ud til procent?

jeg har prøvet sådan som koden nedunder viser men det retunere hele tiden 0!

var procent,lenght,elapsed:integer;
begin
  lenght:=317;
  elapsed:=183;
  procent:=(elapsed div lenght)*100;
end;

Er der nogen som ved hvorfor den gør det? Jeg tror det er fordi at elapsed/lenght = 0,577... og det kan delphi så ik finde ud af at *!??!

Nogen som gider hjælpe?!?!