while l&gt;0 do begin