procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 ... ?? 2014-01-26