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