method foo ( p1 ) var p1 := 1; end;