Function definition: where is the error in the "for" loop?

Dear all,

The following function code fails with errors (see below):

RegPlots <- function (data, ContrVar, RespVar){
intNmbrRows<-length(RespVar);intNmbrCols<-lenght(ContrVar)
      par(mfrow=c(intNmbrRows,intNmbrCols))
      For(i in 1:intNmbrRows){
          For (j in 1:intNmbrCols){
              RegGraf(data,ContrVar[i],RespVar[j])
          }
      }
      par(mfrow=c(1,1))

#(RegGraf is another function that creates a plot and that runs 
flawlessly)

Output (translated to english):

RegPlots <- function (data, ContrVar, RespVar){

+ intNmbrRows<-length(RespVar);intNmbrCols<-lenght(ContrVar)
+     par(mfrow=c(intNmbrRows,intNmbrCols))
+     For(i in 1:intNmbrRows){
Error: Unexpected 'in' in:
"    par(mfrow=c(intNmbrRows,intNmbrCols))
      For(i in"

        For (j in 1:intNmbrCols){

Error: Unexpected 'in' in "        For (j in"

RegGraf(data,ContrVar[i],RespVar[j])

Error in RegGraf(data, ContrVar[i], RespVar[j]) :
    Object 'ContrVar' not found

        }

Error: Unexpected '}' in "        }"

    }

Error: Unexpected '}' in "    }"

    par(mfrow=c(1,1))

Can someone please show me what is wrong?

Thanks in advance
Holger