Tag: for i:= 1 to cxaberto do begin if tirafila[i] > 0 then begin tirafila[i]:=tirafila[i]-1; if tirafila[i] = 0 then begin x:=qtpessoa[i]; cliente[i].visible:=false; qtpessoa[i]:=qtpessoa[i]-1; tirafila[i]:=random(10)+3; end

—————